perl：多线程写入和尾文件

Question

我正在研究 perl 多线程的一个简单用例：一个线程写入文件，另一个线程跟踪文件。这是代码：

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

my $file = 'data.txt';
sub tail_file{
    my $file=File::Tail->new($file);
    while (defined(my $line=$file->read)) {
        print "$line";
    }
}

sub write_file{
    open (MYFILE, ">> $file");
    print MYFILE scalar localtime .  "  A data.\n";
    close (MYFILE); 
    print 'write done!';
}

my $t_tail = threads->new(\&tail_file);
$t_tail->join();

my $t_write = threads->new(\&write_file);
$t_write->join();

运行时，该程序卡在控制台上。

Answer 1

如果您摆脱对 $t_tail->join() 的调用，您的程序实际上可以正常工作。您需要摆脱此调用，因为您的 $t_tail 线程将永远运行（因此永远不会 join），并且您的 $t_write 线程永远不会被踢掉。

但是，您应该知道，即使您删除了该行，如果 $t_write 线程在 $t_tail 线程之前执行（因为线程的执行顺序是永远不会保证），那么可能会出现这样的情况：在 File::Tail 对象初始化之前就完成了对文件的写入。由于 File::Tail 仅捕获初始化后发生的文件更改，因此可能看起来什么也没有发生。

最后，您可能认为 File::Tail 的工作方式与 Linux/Unix tail 类似，但是 文档 显示该模块使用的默认等待时间与 Linux/Unix 对应版本相比相当慷慨：

最大间隔

将花费的最大秒数（实数）
睡眠。默认值为 60，这意味着 File::Tail 的花费永远不会超过
六十秒不检查文件。

间隔

将花费的初始秒数（实数）
在第一次检查文件之前睡觉。默认为十秒，
意思是 File::Tail 将休眠 10 秒，然后确定，如何
文件中出现了许多新行。

如果您运行程序，并且您的 File::Tail 对象在开始写入文件之前确实已初始化，那么您可能需要等待一段时间（10 秒）才能看到任何内容你的控制台。