gpt4 book ai didi

perl - 如何删除文件的最后 N 行?

转载 作者:行者123 更新时间:2023-12-01 06:54:47 24 4
gpt4 key购买 nike

有人可以提供一些有关如何从 Perl 文件中删除最后 n 行的提示吗?我有一个大约 400 MB 的非常大的文件,我想从中删除大约 125,000 行。

最佳答案

您可以使用 Tie::File将文件作为数组处理。

使用 Tie::File;
领带 (@File, '领带::文件', $Filename);
拼接 (@File, -125000, 125000);
解开@File;

另一种方法是使用 headwc -l在 shell 中。

编辑:grepsedawk 让我们想起了 -n选项 head , 否 wc必要的:

head -n -125000 文件 > 新文件

关于perl - 如何删除文件的最后 N 行?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/345513/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com