Perl:如何在数组中逐行存储文件，并且只读取数组的最后4行

Question

Perl:如何在数组中逐行存储文件并只读取数组的最后4行。

现在，我想将几个值与数组的最后4个值进行比较。

Answer 1

以下是将整个文件读取到数组中的快速方法：

use feature qw( say );
my @text = do { local @ARGV = $file ; <> };
say "@text[-4 .. -1]";               # last 4 lines of the array
say "@text[($#text-3) .. $#text]";   # same
say $text[-1];                       # last line of the file
say $text[-4];                       # 4th line from the end of the file