perl - 如何在Perl中读取文件末尾的行？

Question

我正在使用Perl脚本来读取CSV文件并进行一些计算。
CSV文件只有两列，如下所示。

One Two
1.00 44.000
3.00 55.000

现在，此CSV文件非常大，可以从10 MB到2GB。

目前，我正在使用大小为700 MB的CSV文件。我试图在记事本中打开此文件，但是它似乎没有软件可以打开它。

我想读取CSV文件中的最后1000行并查看其值。
我怎样才能做到这一点？我无法在记事本或任何其他程序中打开文件。

如果我编写Perl脚本，则需要处理完整的文件以转到文件末尾，然后读取最后1000行。

有什么更好的办法吗？我是Perl的新手，任何建议将不胜感激。

我已经搜索了net，并且有一些可用的脚本，例如 File::Tail ，但我不知道它们是否可以在Windows上运行？

Answer 1

在* nix中，可以使用tail命令。

tail -1000 yourfile | perl ...

那只会把最后的1000行写到perl程序中。

在Windows上，有 gnuwin32和 unxutils软件包都具有 tail实用程序。