windows - Perl Windows - 观察文件并读取最后一行

Question

我正在尝试在 Windows Perl 中查看文件。我正在使用 Win32::ChangeNotify

这是我的代码：

use strict;
use warnings;


require Win32::ChangeNotify;
use Data::Dumper;

my $Path="C:\\Eamorr\\";
my $WatchSubTree=0;
my $Events="FILE_NAME";

my $notify=Win32::ChangeNotify->new($Path,$WatchSubTree,$Events);
while(1){
    $notify->reset;
    $notify->wait;
    print "File changed\n";
}

但是“文件已更改”永远不会被打印出来！我意识到这是非常基本的东西，但我真的在这个 Windows 平台上苦苦挣扎。

我在“C:\Eamorr\Eamorr.out”中有一个文件，我想监控它的变化（另一个程序每十分钟将一行新数据附加到该文件）。

当 Eamorr.out 更新时，我希望能够运行一些 Perl 并填充 MySQL 表。

请帮助我查看文件 Eamorr.out 并将最后一行打印到控制台。

ps 我在 Windows Server 2003 上

提前谢谢了，

Answer 1

这适用于我的 Windows 7，Activestate Perl 5.16。

use feature ":5.16";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump);
use Win32::ChangeNotify;

my $Path='C:\Phil\z\Perl\changeNotify\\';
my $WatchSubTree = 0;
my $Events = "SIZE";

say STDERR "Exists=", -e $Path;

my $notify=Win32::ChangeNotify->new($Path,$WatchSubTree,$Events) or say("Error=", Win32::GetLastError());
while(1)
 {$notify->reset;
  $notify->wait;
  say STDERR "File changed";
 }