$fp{sha1} = sha1_base64($stripped);
# make sure file is sorted properly
- if ($lastscore and $fp{compact} > $lastscore) {
+ if ($lastscore and ($fp{compact} > $lastscore)) {
print "Input file is sorted improperly or unsorted.\n";
- die "Sort descending (sort -ru) and rerun this script.\n";
+ die "Sort descending (sort -r) and rerun this script.\n";
}
$lastscore = $fp{compact};
open OUT, '>', $conf->{output}
or die "Can't open ", $conf->{output}, "$!\n";
for my $rec (@recs) {
- print $rec,"\n";
print OUT $rec->{id}, "\t$_\n"
for ( @{ $fps{ $rec->{sha1} } } );
}