Question

Perl怎么提取文件某一行一列读入哈希变量

例如输入文件 test.fa如下以第一条序列为例>ENSRNOT00000000957 gene=F1M7K0_RAT CDS=1-1104 依次为基因ID、名称、编码区位置以下为碱基序列，怎样将序列读入哈希变量%gene_fasta（建议 key为“基因ID” value为 “碱基序列”）

Answer 1

my $f = 'test.fa';
my $H;
open $H, $f || die;
my %gene_fasta;
while (<$H>) {
   $gene_fasta{$1} = $2 if (/>(\w+) gene=\w+ CDS=[-\w]+ (\w+)/);
}
close $H;