Leser: 2
![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
use Win32::ChangeNotify;
my $PathConfig = "C:\\SCRIPT\\Config";
my $FileChangeStr = 'LAST_WRITE|FILE_NAME|SIZE';
my $oNotifyConfig = Win32::ChangeNotify->new($PathConfig, 0, $FileChangeStr);
sub snooze {
my $timeout = shift;
$timeout *= 1000;
$oNotifyConfig->wait($timeout);
$oNotifyConfig->reset();
}
![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |