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

发布时间：2020-12-16 06:12:06 所属栏目：大数据来源：网络整理

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

有人可以给出一些如何从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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!