Perl sort one-liner in DOS bat 1

[chibaru]

Hi,

Is it possible to have a Perl one-liner sort that will produce no duplicate records in a DOS bat file? The files are defined in the job environment (local) variables. I tried different variations of the following with no success:

perl -pe "sort $ENV{qq(INSORT)} | uniq -u > $ENV{qq(OUTSORT)}"

I appreciate any help you can give.

Thanks!!!

 

[Annihilannic]

Try this:

perl -ne "$h{$_}=1; END { print sort keys %h; }" %INSORT% > %OUTSORT%

It assigns 1 to a hash indexed by the input lines (which by definition must be unique), and then at the end prints out the keys of that hash, sorted.

Annihilannic.

 

[Annihilannic]

You may net to change %h to %%h to put it in a .BAT file (the above code works from the command line).

Annihilannic.

 

[chibaru]

Thank you Annihilannic!! I am not so good with hashes. You really saved me a lot of time!