使用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
答
部分(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标志)