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

[cbro]

#!/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";
}

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