如何在Windows上使用裸Perl读取文件的最后一行?

STJ*_*STJ 0 perl

我需要只读取文件的最后一行,而不使用File:ReadBackwards模块,因为它没有安装在我需要执行脚本的远程服务器(windows)上.请建议最有效的方法来只读最后一行.

sim*_*que 6

这个答案在Windows上不起作用.


如果这是一次性的事情,只需进行系统调用和使用即可tail.

my $last_line = `tail -n 1 $filename`;
Run Code Online (Sandbox Code Playgroud)

如果你需要做这个有很多,想安装到本地-lib中的远程计算机上,或fatpacking文件:: ReadBackwards到你的脚本,你在部署之前.