perl根據ID提取序列

#!/usr/bin/perl -w unless(@ARGV==3){ die "Usage: perl $0 <ID_lst> <input_fasta> <output> error:$!\n"; } my($lst, $input, $output)=@ARGV; open LST, $lst; open INPUT, $input; open OUTPUT, ">$output";

>>阅读原文<<