filesystems – NFS – 以编程方式检测远程创建的文件？

这是一个说明问题的测试用例：

watch_file.pl：

#!/usr/bin/perl -w
my @stat;
while (1) {
    @stat = stat("/nfs/test");
    last if ($stat[1] && $stat[1] > 0);
}

在“host-A”上运行该简单脚本：

host-A% ./watch_file.pl &
[1] 9312

切换到“host-B”并创建文件：

host-B% touch /nfs/test

…回到“主机-A”,程序还没有退出：

host-A%

…仍然在“host-A”上,在目录中执行ls,然后脚本会看到该文件：

host-A% ls -a /nfs
.  ..  test
host-A%
[1]+  Done                    ./watch_file.pl &
host-A%

有没有人知道一个简单的修复或解决方法,这比在后台运行脚本每10秒使用一个NFS目录要少？