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;
}
}
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|