On 24 Mar, Sara wrote:
> What If I want to remove dupes from @row? like if $row[2] is similar in
> multiple records,
> only one entry should be showed, the duplicates should not appear in the
> print.
> Any ideas?
#! /usr/bin/perl
use strict;
use warnings;
{
local $" = "\n";
my (@dupes, %have);
@dupes = qw(hello hello goodbye goodbye);
for (my $i = $#dupes; $i >= 0; $i--) {
splice(@dupes, $i, 1) if $have{$dupes[$i]};
$have{$dupes[$i]} = 1;
};
print "@dupes\n";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
