Re: How to search a CDR file for duplicates and delete them

[Henrik Nielsen]

Jeff Pang wrote:

change:

      my $key = join ',', ( split /,/ )[ 2, 3, 6, 7 ];
      print $out $_ unless $hash{ $key }++;

to:

print $out $_ unless $hash{$_}++;


Good luck.

How simple! It works :-)
Thx!

Next step to work with file names and dates.

../Henrik

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/