perl - IO::Event を使用してディレクトリ内の新しいファイルを検出する

Question

IO::Eventを使用して、新しいファイルがディレクトリに追加されたことを検出しようとしています。私は IO::Event ライブラリが初めてで、簡単に実装できるかどうか知りたいです。

以下のコードを試して、うまくいかないことを実行できるかどうかを確認しました。opendirの代わりに使用しようとするとクラッシュしましたopen。

このライブラリが私が探しているものを提供できるかどうかを確認しています。自分でコーディングできるので、単純な Perl でのソリューションは必要ありません。私がこれを見ている唯一の理由は、Proc::JobQueue::EventQueueを使いたいからです。Proc::JobQueueを使用するだけでソリューションをコーディングできますが、これはよりクリーンであると考えました。

#!perl

use warnings;
use strict;
use IO::Event;

open my $dirhandle,'/some/path/here/';

my $event = IO::Event->new($dirhandle);

Event::loop();

close $dirhandle;

sub ie_input{
    print "ie_input called\n";
}

sub ie_read_ready{
    print "ie_read_ready called\n";
}

sub ie_werror{
    print "ie_werrory called\n";
}

sub ie_output{
    print "ie_output called\n";
}