perl – 如何删除文件的最后N行？

概述有人可以给出一些如何从Perl文件中删除最后n行的提示吗？我有一个大约400 MB的非常大的文件,我想从中删除大约125,000个最后一行. 您可以使用 Tie::File将文件作为数组处理. use Tie::File;tie (@File, 'Tie::File', $Filename);splice (@File, -125000, 125000);untie @File; 另一种方 有人可以给出一些如何从Perl文件中删除最后n行的提示吗？我有一个大约400 MB的非常大的文件,我想从中删除大约125,000个最后一行.解决方法 您可以使用 Tie::File将文件作为数组处理.

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

总结

以上是内存溢出为你收集整理的perl – 如何删除文件的最后N行？全部内容，希望文章能够帮你解决perl – 如何删除文件的最后N行？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。