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

Question

我在Windows系統中安裝了File::ChangeNotify並嘗試運行下面的代碼：

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"} 

UPDATE：作爲CJM機敏地指出的那樣，增加一個新行工作，以替代$|：

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