Wie kann ich File :: ChangeNotify unter Windows verwenden?

Question

Ich installierte File::ChangeNotify auf Windows-System und versuchen Sie den folgenden Code auszuführen:

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


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

Als ich das Skript ausgeführt und versuchen, eine neue .txt Datei oder ändern, um eine .txt Datei unter c:\files das Skript drucken nichts zu erstellen .

Answer 1

Es funktioniert für mich (auf Linux), wenn ich diese Zeile hinzu:

$| = 1; 

Dann sehe ich new event.

-perldoc perlvar Siehe: $| oder $OUTPUT_AUTOFLUSH

Dies ist die komplette Code:

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: Wie cjm astutely weist darauf hin, das Hinzufügen eines Newline als Alternative arbeitet an $|:

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