Example of AnyEvent::Filesys::Notify

gistfile1.pl

#!/usr/bin/env perl
use common::sense;
 
use AnyEvent::Filesys::Notify;
use AnyEvent;

my $src = "/my/proj/path/htdocs";
my $dst = "/var/www/html";

my $cv = AnyEvent->condvar;
 
my $notifier = AnyEvent::Filesys::Notify->new(
    dirs     => [$src],
    interval => 0.5,
    filter   => sub { 
        my $item = shift;

        return $item =~ /\.(css|js)$/ && $item !~ /svn/;
     },
    cb       => sub {
        my @events = @_;
 
        for my $event (@events) {
            next if $event->type ne 'modified';

            my $item = $event->path;
            if ($item =~ /css$/) {
                system("cp $item ${dst}/css");
            }
            elsif ($item =~ /js$/) {
                system("cp $item ${dst}/js");
            }
        }
    },
);
 
$cv->recv;