Perl File::Tail设置tail参数无效，仍从文件开头读取怎么办？

你的问题出在对File::Tail模块的tail参数理解有误——这个参数不是用来指定程序启动时从文件末尾n行开始读取，而是用于当文件被截断（比如日志轮转）后，重新追踪时保留的历史行数缓存，所以不管你设置多少，启动时都会从头读文件。

要实现启动时先输出文件最后50行，再持续追踪新内容，有两种靠谱的做法：

方法一：手动读取最后50行再启动追踪 #

先通过Perl代码直接读取文件最后50行，再初始化File::Tail追踪后续新增内容：

use strict;
use warnings;
use File::Tail;

my $file_path = "/home/richard/double-take/messages.log";

# 读取文件最后50行
my @last_lines;
open my $fh, '<', $file_path or die "无法打开文件: $!";
while (my $line = <$fh>) {
    push @last_lines, $line;
    # 保持数组最多50行
    shift @last_lines if @last_lines > 50;
}
close $fh;

# 打印最后50行
print @last_lines;

# 启动File::Tail追踪新内容
my $file = File::Tail->new(
    name => $file_path,
    interval => 3,
    maxinterval => 3
);

while (defined(my $line = $file->read)) {
    print $line;
}

方法二：结合系统tail命令（Linux/Unix下适用） #

如果是在Linux或Unix环境下，可以先调用系统的tail -n 50输出最后50行，再用File::Tail追踪：

use strict;
use warnings;
use File::Tail;

my $file_path = "/home/richard/double-take/messages.log";

# 调用系统命令输出最后50行
system("tail -n 50 $file_path");

# 启动追踪
my $file = File::Tail->new(
    name => $file_path,
    interval => 3,
    maxinterval => 3
);

while (defined(my $line = $file->read)) {
    print $line;
}

注意：第二种方法依赖系统的tail命令，跨平台（比如Windows）可能不适用，优先推荐第一种纯Perl实现。

内容的提问来源于stack exchange，提问作者gatorreina