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

Prozessliste auslesen: oder anders feststellen, ob Skript läuft

Leser: 1


<< >> 2 Einträge, 1 Seite
Gast Gast
 2004-04-08 21:04
#94462 #94462
Hallo,
Ich habe ein Perl-Skript, das über einen Cron-Job regelmäßig gestartet wird, aber auch manuel (mit anderen Parametern) gestartet werden kann. Es darf jedoch immer nur eine Instanz dieses Programmes laufen. Deswegen möchte ich als erstes in dem Programm feststellen, ob es bereits läuft und es in diesem Fall mit einer entsprechenden Meldung sofort wieder beenden.
Mit ps und den diversen Parametern kann ich von der Shell aus feststellen, ob das Programm läuft. Ich kann jedoch nicht mit system(), exec() oder syscall() von Perl aus das ps Kommando ausführen bzw. mir nicht das Ergebnis anschauen.
Gibt es noch eine andere Möglichkeit von Perl aus ein Kommandozeilenbefehl abzusetzen oder direkt in die Prozessliste zu schauen?
Danke,
Wolfgang Domnick
WDomnick@virtuelle-apotheke.de
www.virtuelle-apotheke.de
[E|B]
 2004-04-08 21:32
#94463 #94463
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
HiHo!

Code: (dl )
print `ps ax`;
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
<< >> 2 Einträge, 1 Seite



View all threads created 2004-04-08 21:04.