linux - ファイルの変更ごとに Perl inotify2 が 2 回トリガーされる

Question

ファイルの変更を監視する Perl スクリプトを作成しています。

#!/usr/bin/perl
use strict;
use Linux::Inotify2;

my $inotify = new Linux::Inotify2 or die $!;
my $filename = "/tmp/foo";
my $counter = 0;

$inotify->watch (
    $filename,
    IN_MODIFY,
    sub {
        ++$counter;
        print "changed: $counter\n";
    }
) or die $!;

1 while $inotify->poll;

このハンドラーは、次のようにテストすると、/tmp/foo が変更されるたびに 2 回呼び出されます ($counter を 2 回インクリメントします)。

echo abc > /tmp/foo

なんで？

Answer 1

>>@Lajos Veresが提案したように使用するか、CLOSE_WRITEイベントを監視します（つまり、モジュール のIN_CLOSE_WRITEです）、Linux::Inotify2

echo > /tmp/foo

---

inotifywait -m /tmp/foo
Setting up watches.
Watches established.
/tmp/foo MODIFY
/tmp/foo OPEN
/tmp/foo MODIFY
/tmp/foo CLOSE_WRITE,CLOSE

Answer 2

> は最初にファイルを切り捨てます (それ自体も変更だと思います)。>>でやってみる。