【实例简介】
# 去除fasta文件中重复的序列
# 用法：perl rmfastadup.pl input,fasta output.fasta
【实例截图】
【核心代码】
while ((my $seqobj = $infile1->next_seq()))
{
$rawid = $seqobj -> display_id;
$seq = $seqobj -> seq;
#print "ID is $rawid\n";
#print "Sequence is $seq\n";
if(defined($FIRSTSEQ{$seq}))
{
print "Key match with $FIRSTSEQ{$seq}\n";
$dup ;
}
else
{
$FIRSTSEQ{$seq} = $rawid;
$total ;
}
}
下载声明：
1、本站所有资源、仅供学习交流，不得商业运营资源，不确保资源完整性，图片和资源仅供参考， 不提供任何技术服务。
2、本站资源均有第三方用户自行上传分享推荐，非本站自制，仅供玩家做交流学习之用！切勿用于商业用途！游戏作品版权
归原作者享有，如有版权问题，请附带版权证明至邮件，本平台将应您的要求删除。举报邮箱 ：859840003@qq.com
评论