如何在 Perl 中异步监视文件？

Question

我想知道是否可能，如果可能的话，如何创建一个持续监视文件/数据库的 perl 脚本，然后在文件更改时调用子例程来执行文本处理。我很确定使用套接字可以做到这一点，但这需要用于在共享主机上运行的站点上的网络聊天应用程序，而且我不太确定它是否允许使用套接字。

基本思想是：

• 为聊天文件/数据库创建一个侦听器，
• 当文件更新为新消息时，调用子例程，
• 被调用的子例程将把新消息发送回浏览器以进行显示，

提前致谢。

Answer 1

许多操作系统运行一项服务，允许应用程序注册请求，以便在文件或路径更新时收到通知。这通常称为文件更改监视器。有关某些可用系统，请参阅链接的维基百科页面。最近的linux系统使用Inotify，以前使用Dnotify或gamin。 OS X 使用 FSEvents。 Windows也有类似的系统。我不知道有任何模块或机制适用于所有这些系统的跨平台，但 CPAN 上有可用的特定模块，例如 SGI::FAM 和 File::Tail::FAM。

Answer 2

我将使用 cron 作业和调用 Perl 脚本的 Makefile 来完成此操作。方便的是，您可以自动获取 Perl 脚本的 atime 作为要比较的时间戳，因为脚本的 atime 在调用时会更新。

Answer 3

use POE qw(Wheel::FollowTail);
POE::Session->create(
    inline_states => {
      _start => sub {
        $_[HEAP]{tailor} = POE::Wheel::FollowTail->new(
          Filename => "/var/log/thttpd.log",
          InputEvent => "got_log_line",
          ResetEvent => "got_log_rollover",
        );
      },
      got_log_line => sub {
        #print "Log: $_[ARG0]\n";
        parseline($_[ARG0]);
      },
      got_log_rollover => sub {
        #print "Log rolled over.\n";
      },
    }
  );

POE::Kernel->run();
exit;

#parseline()...etc.