Re: remove duplicate lines

[beast]

Dr.Ruud wrote:

  while ( <ARGV> )
  {
    next if $d{$_};
    print;
    $d{$_} = 1;
  }

Got the idea. Many thanks!


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