perl 读取大容量的文件的前两行，程序该怎么写？赐教！

perl 中要读取大容量的文件的前两行，再处理，然后再读后面两行，再处理，依次类推，程序该怎么写？赐教！

。。。咱们学bioinfo的，还是多看小骆驼，多问自己吧。。。。


my $two_line="";
my $count=0;
while(<>){
      $two_line  .=  $_;

       if($count == 1){
            do your job  for $two_line  here;
            $count=0;
            $two_line="";
            next;
       }
      $count++;
}

本帖最后由 leigh111 于 2011-04-20 09:47 编辑

my @array;
my %hash;
while(<FH>){
    chomp;
    my $first = $_;
    my $second = <FH>;
    #$hash{$first} = $second;
    &deal($first,$second);
    $first = ();
    $second = ();
}
close FH;

sub deal {
    my ($first,$second) =@_;
    do your job;
}


代码写的挺笨。