use Tie::File; tie (@File,'Tie::File',$Filename); splice (@File,-125000,125000); untie @File;
另一种方法是在shell中使用head和wc -l.
编辑：grepsedawk提醒我们-n选项要头,没有必要：
head -n -125000 FILE > NEWFILE
