Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]7358[/thread]

Verzeichnis überwachen: ob eine Datei neu / gelöscht / umbenannt (Seite 2)

Leser: 2


<< |< 1 2 >| >> 13 Einträge, 2 Seiten
Optalamia
 2005-10-19 04:16
#58912 #58912
User since
2003-10-01
50 Artikel
BenutzerIn
[Homepage] [default_avatar]
habe das Modul Win32::ChangeNotify ausprobiert und funktioniert prima (-:
zipster
 2005-10-19 10:27
#58913 #58913
User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]
Könntest du dein Code vieleicht mal als Beispiel posten oder vieleicht besser noch ein Wiki-Eintrag erstellen?

Würde mich nämlich interessieren ;)
pKai
 2005-10-19 17:05
#58914 #58914
User since
2005-02-18
357 Artikel
BenutzerIn
[default_avatar]
Siehe
perldoc Win32::ChangeNotify
Bzw.
perldoc Win32::IPC (ChangeNotify erbt Methode "wait" von IPC)


Code(-Ausschnitt) den ich vor Jahren mal benutzt hab, um in einer (Endlos-)Schleife auf Änderungen zu warten(diese zu verarbeiten).

Code: (dl )
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();
}


Die sub ersetzt quasi ein sleep, was aber unterbrochen wird, wenn ein Ereignis eintritt.

Das Ergebnis von "wait" kann auch abgefragt werden (interessierte mich damals nicht, da ich angelieferten Dateien sowieso alle gelöscht habe), siehe Win32::IPC
I sense a soul in search of answers.
<< |< 1 2 >| >> 13 Einträge, 2 Seiten



View all threads created 2005-10-16 19:23.