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

を、スクリプトが何も印刷されませんでしたc:\filesの下に新しい.txtファイルを作成したり、.txtファイルを変更しよう。

Answer 1

それは私がこの行を追加した場合（Linuxの場合）私の作品：

$| = 1; 

をその後、私はnew eventを参照してください。

perldoc perlvarを参照してください。

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：ここ$|又は$OUTPUT_AUTOFLUSH

は完全なコードであるCJMが鋭く$|の代替として改行作品を追加して、指摘するように：

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