Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: File::Monitor problem with batch files

by xbmy (Friar)
on Nov 18, 2010 at 22:46 UTC ( #872368=note: print w/replies, xml ) Need Help??

in reply to File::Monitor problem with batch files

Finally, I tried the following code, it works perfectly for monitoring all the files in a directory! Thanks you all!

use File::Monitor; use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove); my $monitor = File::Monitor->new(); $files= 'c:\\PAPERS'; opendir(AA,$files) || return; my @list = readdir(AA); closedir (AA); foreach $file (@list) { $monitor->watch( $file ); } $monitor->callback( mtime => sub { my ($file, $event, $change) = @_; print "$file has been modified \n\n"; fcopy ("$file","p:\\phdpaper"); } ); while (1) { $monitor->scan; sleep 10; # After the first scan we get a list of File::Monitor::Delta obje +cts # that describe any changes my @changes = $monitor->scan; for my $change (@changes) { # Call methods on File::Monitor::Delta to discover what change +d if ($change->is_mtime) { my $name = $file_name; } } }

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2016-10-22 12:13 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (294 votes). Check out past polls.