有人可以提供一些有关如何从 Perl 文件中删除最后 n 行的提示吗？我有一个大约 400 MB 的非常大的文件，我想从中删除大约 125,000 行。
最佳答案
您可以使用 Tie::File将文件作为数组处理。
使用 Tie::File;
领带 (@File, '领带::文件', $Filename);
拼接 (@File, -125000, 125000);
解开@File;
另一种方法是使用 head和 wc -l在 shell 中。
编辑:grepsedawk 让我们想起了 -n选项 head , 否 wc必要的:
head -n -125000 文件 > 新文件
关于perl - 如何删除文件的最后 N 行？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/345513/