Re: Unique array w/o repeated elements and still keep the original order!

foreach my $instance (@lines2)
{
  print OUTF $instance unless $hsh{$instance}++;
}
[download]

Tiago
Update: replaced 'if' with 'unless'. thanks robobunny

Comment on Re: Unique array w/o repeated elements and still keep the original order! Download Code

Replies are listed 'Best First'.
Re: Re: Unique array w/o repeated elements and still keep the original order! by robobunny (Friar) on Aug 09, 2002 at 19:50 UTC
i'm assuming it was just a typo, but i think you meant: `foreach my $instance (@lines2) { print OUTF $instance unless $hsh{$instance}++; }` [download] as written, it will only print the duplicates.	[reply] [d/l]