处理大容量文件

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

    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 = @_; . . . }

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