我想访问四个FASTA文件，以便从标题行打印生物名称？

Question

我尝试过，但是它也没有显示任何错误或警告，也没有输出？我需要从这些FASTA文件的标题行或第一行中打印生物名称。

use warnings;
use strict;

my @ar=("seq.fasta","sequ.fasta","sequence.fasta","sq.fasta");
for(my $i=0;$i<4;$i++)
{
   my $afile=$ar[$i];
   open(FH,'<',"$afile")|| die($!);

while(my $line=<FH>)
{  
    print"$line\n";
    $line=~ m/.+?\[(.+?)\]/g;
    print"$1\n";
}
}

我尝试过，但是它也没有显示任何错误或警告，也不会输出？我需要从这些FASTA文件的标题行或第一行打印生物名称。使用严格我的@ar =（“ seq ....

Answer 1

反正我不清楚问题，我只是假设输入。只需尝试以下代码：