xbmy has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks;
The following code works well for single file, what i want it to do is monitor the mtime of a file, if it has been modified, copy it to a new directory immediately as an automatic backup procedure.
use strict; use warnings; use File::Monitor; use File::Monitor::Object; use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove); my $wFile="1.doc"; my $wFileMonitor = File::Monitor->new(); $wFileMonitor->watch($wFile); $wFileMonitor->scan; while (1){ my @changes = $wFileMonitor->scan; foreach my $object (@changes) { my $modified = $object->mtime; print "$wFile changed\n"; fcopy ("$wFile","c:\\newpath"); # automatic backup if the file h +as been modified } }
But i have many files for which to be monitored, i want to give it a file list or array like the following codes:
use strict; use warnings; use File::Monitor; use File::Monitor::Object; use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove); my @Files=("1.doc","2.doc","3.xls"); my $wFileMonitor = File::Monitor->new(); foreach my $wFile (@Files){ $wFileMonitor->watch($wFile); #-- First scan does nothing $wFileMonitor->scan; while (1){ my @changes = $wFileMonitor->scan; foreach my $object (@changes) { my $modified = $object->mtime; print "$wFile changed\n"; fcopy ("$wFile","c:\\newpath"); } } }
What the codes output is just monitor the first file in the file array or list, when i did some modifies to the other file in the list there was no monitor response. But i want they were monitored simultaneously. Can you give me some advices! Any help will be appreciated!
|
---|
Back to
Seekers of Perl Wisdom