Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^2: monitoring directory for new subdirectories

by incognito129 (Acolyte)
on Mar 27, 2009 at 23:06 UTC ( [id://753800]=note: print w/replies, xml ) Need Help??


in reply to Re: monitoring directory for new subdirectories
in thread monitoring directory for new subdirectories

the script is running in debian 4.0
  • Comment on Re^2: monitoring directory for new subdirectories

Replies are listed 'Best First'.
Re^3: monitoring directory for new subdirectories
by almut (Canon) on Mar 27, 2009 at 23:27 UTC

    Linux::Inotify2.  Some sample code to get you started: Inotify2 findings.

    Update: more (and specific) sample code:

    #!/usr/bin/perl use Linux::Inotify2; my $inotify = Linux::Inotify2->new() or die "unable to create new inotify object: $!"; $inotify->watch( "/tmp", # directory to watch IN_CREATE, # flags sub { # callback routine my $evt = shift; my $name = $evt->fullname; if (-d $name) { print "directory $name has been created\n"; } } ); 1 while $inotify->poll; __END__ $ stty -tostop # just in case $ ./753790.pl & [1] 2590 $ mkdir /tmp/somedir directory /tmp/somedir has been created $
      any other options? Make fails for Linux::Inotify2 on my system, not sure why.
        Make fails for Linux::Inotify2 on my system

        shouldn't fail... (just tried it on Debian etch and it did build out of the box). What error are you getting?

        Anyhow,

        $ apt-cache search inotify2 liblinux-inotify2-perl - scalable directory/file change notification

        reveals that there's also a debian package liblinux-inotify2-perl, which you could simply install.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://753800]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (2)
As of 2025-03-20 02:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When you first encountered Perl, which feature amazed you the most?










    Results (60 votes). Check out past polls.