工作中,经常会遇到一些大容量的文件需要处理,如果逐行处理可能消耗比较大,需要一段一段处理。
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