in reply to String Duplication

When you want to avoid duplicates, the automatic answer is 'use a hash'.

Simply put some unique value (or the whole line) as a key for a hash. I'll let you decide what is an appropriate value for this key - it should be easily generated, and unique for each identical record.

Do a:
$hash{$key}++;
when you find a value you want for the first time.

Then, skip that line when you encounter the same key again. Put:
next if(exists $hash{$key});
at the top of your loop.

Replies are listed 'Best First'.
Re: Re: String Duplication
by Anonymous Monk on Jul 16, 2003 at 15:49 UTC
    How could I add that to the code comparing to what I am print using the $1,$2,$3 variables.
[reply]
      Simple.
      $key = $1 . $2 . $3;

      [download]
      With that and the code in my previous post, you won't print the same $1 $2 $3 combination twice.
[reply]
[d/l]

In Section Seekers of Perl Wisdom