Submit Hint Search The Forums LinksStatsPollsHeadlinesRSS
14,000 hints and counting!


Click here to return to the 'one more try' hint
The following comments are owned by whoever posted them. This site is not responsible for what they say.
one more try
Authored by: SOX on Sep 17, '04 04:38:53PM

#!/usr/bin/perl 
# identify duplicates that have same four first fields
$/ = "\r";
while ($d = <>) { 
     @F = split /\t/, $d ;
    $x = join " ::\t",@F[0..3]; 
    print $x,"\n" if $h{$x}++;
}


[ Reply to This | # ]