Thread Perl Skript auf einem Server auführen
(16 answers)
Opened by mkk at 2013-09-09 09:49
Um zu testen ob das eigene script noch läuft schreibst du beim ersten Start die prozessid des scripts in eine datei: open(fh, '>',$pid_file) and print $fh $$ and close($fh);
beim nächsten starten holst du die pid aus der datei: $pid=eval{local($/,@ARGV)=(undef,$pid_file); <>}; beende das neue script, wenn das alte noch läuft: exit if($pid and kill(0,$pid)); Last edited: 2013-09-11 17:10:41 +0200 (CEST) |