while(<>){
chomp;
$line=$_;
@line=split /\t/,$line;
($name, $score)=@line[0,11];
if(!exists($max{$name})){
push @names,$name;
}
if(!exists($max{$name})||$s>$max{$name}){
$max{$name}=$score;
$best{$name}=();
}
if($score==$max{$name}){
$best{$name}.=$line;
}
}
for $i (@names){
print $best{$i}."\n"
}
如果queryA比对到两条序列B、C,并且bit score值相同,则两行会输出为同一行