in reply to Re^2: File::Monitor problem with batch files
in thread File::Monitor problem with batch files
Actually, I looked at the module and the package name is
package Win32::ReadDirectoryChanges;
The bareword errors were probably because of the incorrect package name. Change the name of the module you copied and pasted to Win32::ReadDirectoryChanges (without the W).
Try to change the code to:
use strict; use warnings; use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove); use Win32::ReadDirectoryChanges; my $path = 'c:\\PAPER'; my $subtree = 1; my $filter = FILE_ACTION_ADDED | FILE_ACTION_MODIFIED; my $rdc = Win32::ReadDirectoryChanges->new(path => $path, subtree => 1, filter => $filter); my @results = $rdc->read_changes; while (scalar @results) { my ($action, $filename) = splice(@results, 0, 2); if ($action == FILE_ACTION_ADDED || $action == FILE_ACTION_MODIFIED +) { # perform your backup here fcopy ("$filename","p:\\phdpaper"); } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: File::Monitor problem with batch files
by xbmy (Friar) on Nov 18, 2010 at 17:08 UTC | |
Re^4: File::Monitor problem with batch files
by xbmy (Friar) on Nov 18, 2010 at 15:53 UTC | |
Re^4: File::Monitor problem with batch files
by xbmy (Friar) on Nov 18, 2010 at 19:36 UTC |
In Section
Seekers of Perl Wisdom