使用perl监视文件的变化（macos和linux）

我想观看一组文件以进行更改，并且这样做没有CPU和电池的巨大损失。理想情况下，我的perl代码可以在macos和linux上运行，但前者更重要。我试过使用perl监视文件的变化（macos和linux）

我试过Mac::FSEvents，它在macos上工作，似乎很适合用于目录，但对于文件来说，我无法看到。

my $fs = Mac::FSEvents->new('try.txt'); 
my $fh= $fs->watch; 

my $sel = IO::Select->new($fh); 
while ($sel->can_read) { 
    my @events = $fs->read_events; 
    for my $event (@events) { 
    printf "File %s changed\n", $event->path; 
    } 
}

它根本不响应;并且很有希望更OS无关

use File::Monitor; 
my $monitor = File::Monitor->new(); 

my @files= qw(try.txt); 

foreach (@files) { $monitor->watch($_); }

消耗100％的CPU。单独的$monitor-watch()不会阻止。我也试过

use File::Monitor; 
my $monitor = File::Monitor->new(); 

$monitor->watch('try.txt', sub { 
        my ($name, $event, $change) = @_; 
        print "file has changed\n"; 
       });

但这立即返回。

我发现了另一个，

use File::ChangeNotify; 

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

# blocking 
while (my @events = $watcher->wait_for_events()) { 
    print "file has changed\n"; 
}

但是CPU利用率再高（70％）。

也许这些都是错误的cpan模块。有人可以给我建议，我应该如何做到这一点？

问候，

/IAW

来源

2017-06-04 ivo Welch

部分（MacOS的特异性）例如：

use IO::Select; 
use Mac::FSEvents; 
my $fs = Mac::FSEvents->new(
    path   => ['./try.txt', './try2.txt'], 
    file_events => 1, 
    ); 

my $fh= $fs->watch; 
my $sel = IO::Select->new($fh); 
while ($sel->can_read) { 
    my @events = $fs->read_events; 
    for my $event (@events) { 
    printf "File %s changed\n", $event->path; 
    } 
}

（即，它需要的file_events标志）

来源

2017-06-04 02:52:33

使用perl监视文件的变化（macos和linux）

回答

相关问题