求助

jiangphoenix

我這里有一個(gè)fasta文件，
@akjsdk
ACTGGA
+
FFFF
我想按自己要求輸出多行，比如說輸入2就會(huì)輸出前兩行，這個(gè)我該怎么寫啊,
在線求幫忙啊

只是一個(gè)紅薯

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.          

復(fù)制代碼

jiangphoenix

謝謝大家了