在perl中使用inotify监视多个文件

#!/usr/bin/perl

use strict;
use warnings;
use Linux::Inotify2;

# 创建一个新的inotify实例
my $inotify = Linux::Inotify2->new;

# 添加要监视的文件
my @files = qw(/path/to/file1 /path/to/file2 /path/to/file3);
foreach my $file (@files) {
    $inotify->watch($file, IN_MODIFY | IN_CREATE | IN_DELETE)
        or die "Cannot watch $file: $!";
}

# 循环处理事件
while (my $event = $inotify->read) {
    my ($name, $mask) = ($event->fullname, $event->mask);
    print "Event: $name\n";
    if ($mask & IN_MODIFY) {
        print "File $name was modified\n";
    } elsif ($mask & IN_CREATE) {
        print "File $name was created\n";
    } elsif ($mask & IN_DELETE) {
        print "File $name was deleted\n";
    }
}