perl - 如何在 Windows 上使用 File::ChangeNotify？

Question

我安装了 File::ChangeNotify在 Windows 系统上并尝试运行以下代码:

my $watcher =
     File::ChangeNotify->instantiate_watcher
         ( directories => [ 'C:\files' ],
             filter  => qr/\.txt$/
         );


 # # blocking
 while ( my @events = $watcher->wait_for_events() ) { print "new event"}

当我运行脚本并尝试创建一个新的 .txt 时文件或修改 .txt文件下 c:\files该脚本没有打印任何内容。

Answer 1

如果我添加这一行，它对我有用(在 linux 上):

$| = 1;

然后我看到 new event .

引用 perldoc perlvar : $|或 $OUTPUT_AUTOFLUSH
这是完整的代码:

use warnings;
use strict;
use File::ChangeNotify;

$| = 1;

my $watcher =
     File::ChangeNotify->instantiate_watcher
         ( directories => [ 'C:\files' ],
             filter  => qr/\.txt$/
         );


 # # blocking
 while ( my @events = $watcher->wait_for_events() ) { print "new event"}

更新:正如 cjm 敏锐地指出的那样，添加换行符可以替代 $| :

 while ( my @events = $watcher->wait_for_events() ) { print "new event\n"}