thank you#!/usr/bin/perl use strict; use warnings; use File::Monitor; use File::Monitor::Object; my $monitor = File::Monitor->new(); $monitor->watch('/home/test/work/obsrv'); my $flag=1; while(1) { $monitor->scan; $flag=1; while ($flag){ for my $change ($monitor->scan){ print ("\n new file was created!!!!"); $flag=0; } } }
In reply to File::Monitor does not work ... by defmer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |