24小时热门版块排行榜    

查看: 2192  |  回复: 8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

shuifeng1988

金虫 (小有名气)

木虫

[求助] perl脚本求助,我想将一万多个文件从fasta格序,改为phylip4格式

求助,如何利用bioperl批量修改序列格式!我在iny文件夹中有一万多个.fasta文件,我想将它们修改序列格式为phylip4,并存在out文件夹中!我电脑上已经装好bioperl,请问怎么写脚本??
回复此楼
平生两愿:抱着美人,浪迹天涯!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dadalia

木虫 (小有名气)

【答案】应助回帖

★ ★ ★
感谢参与,应助指数 +1
shuifeng1988(金币+5): 2011-12-27 17:05:26
余泽成(金币+3): 谢谢参与应助! 2011-12-29 21:50:12
#/usr/bin/perl
use Bio::AlignIO;
my @name = glob("*.fasta" );
foreach $name (@name) {
$in = Bio::AlignIO -> new(-file => "$name", '-format' => 'fasta');
$out = Bio::AlignIO -> new(-file => ">..\\sequence03\\$name", '-format' => 'phylip');
while (my $aln = $in -> next_aln()) {$out ->write_aln($aln);
}
}
7楼2011-12-27 17:03:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 shuifeng1988 的主题更新
信息提示
请填处理意见