本程序用于查找指定序列id的fasta序列,基本思路就是将需要查找的fasta文件序列id存入一个哈希,然后遍历目标fasta文件,进行查找。
#!/usr/bin/perl
use strict;
use warnings;
my $target_ids;
my %id;
my $num;
open IN1,$ARGV[0] ||
本程序用于查找指定序列id的fasta序列,基本思路就是将需要查找的fasta文件序列id存入一个哈希,然后遍历目标fasta文件,进行查找。
#!/usr/bin/perl
use strict;
use warnings;
my $target_ids;
my %id;
my $num;
open IN1,$ARGV[0] ||