Re: how to remove duplicate based on the first column value


No such thing as a small change
	PerlMonks

Re: how to remove duplicate based on the first column value

by cbro (Pilgrim)

on Jun 10, 2003 at 15:05 UTC ( [id://264706]=note: print w/replies, xml )

Need Help??

in reply to how to remove duplicate based on the first column value

#!/usr/local/bin/perl

my %hash;
open (F,"testers.txt");
my @array = <F>;
close(F);

foreach (@array) {
    my ($key, $value) = split(/\|/);
    next if (exists $hash{$key});
    $hash{$key} = $value;
}

# use this to verify
while (my ($fkey,$fval) = each %hash) {
    print "$fkey|$fval\n";
}
[download]

I hope I didn't just do somebody's homework <g>