perl处理大容量文件

工作中，经常会遇到一些大容量的文件需要处理，如果逐行处理可能消耗比较大，需要一段一段处理。

use strict;  
open my $fh,"<","your_file";  
my @lines;  
while (<$fh>) {  
    chomp;  
    push @lines,$_;  
    if (not $.%2) {  
        do_your_thing(@lines);  
        @lines = ();  
    }  
}  
close $fh;  
sub do_your_thing {  
    my @lines = @_;  
    .  
    .  
    .  
}

这个方法就可以先读取两行，处理一下，然后再读两行，再处理，从而实现分段处理。

来源：

http://blog.csdn.net/ace_fei/article/details/6342345