求助

jiangphoenix

我这里有一个fasta文件，
@akjsdk
ACTGGA
+
FFFF
我想按自己要求输出多行，比如说输入2就会输出前两行，这个我该怎么写啊,
在线求帮忙啊

只是一个红薯

1. #!usr/bin/perl
   
2. open FH,'<','fasta' or die 'can't open fasta';
   
3. my $count;
   
4. while(<FH>)
   
5. {
   
6. exit if $count ==$ARGV[0];
   
7. print $_;
   
8. $count++;
   
9. }
   
10.   close FH;
    
11.          

复制代码

jiangphoenix

谢谢大家了