Prüfen ob Skript bereits läuft (Allgemeines zu Perl)

[thread]13852[/thread]

Prüfen ob Skript bereits läuft

Leser: 26

Articles: hide open all | hide show old branches

+8 replies
fish12345

2009-08-12 11:26

User since
2009-07-29
8 Artikel
BenutzerIn

Hi,

ich habe ein Skript geschrieben welches auf keinen Fall mehrmals gleichzeitig gestartet werden darf. Irgendwo habe ich auch einmal einen tollen Zweizeiler gesehen wie man das abfragt, aber jetzt finde ich natürlich gerade gar nichts.

Kann mir von euch jemand sagen wie ich Abfrage ob mein Perlskript bereits läuft?

MfG,
fish
- +4 replies
- nepos
  
  2009-08-12 11:29
  
  User since
  2005-08-17
  1420 Artikel
  BenutzerIn
  
  Unter Unix und Co macht man das oft per PID-File.
  Wenn das Skript startet, checkt es, ob die PID-File bereits vorhanden ist. Wenn ja, liest man daraus die PID aus und macht schickt per kill das Signal 0 an diese PID. Ist das erfolgreich, läuft das Programm bereits. Wenn nicht, kann man selber loslegen.
  Man muss aber darauf achten, beim Beenden das PID-File sauber wegzuräumen.
  
  Alternativ kann man eventuell auch mit einem Lock-File arbeiten. Das wird angelegt und exclusiv gelockt. Der andere Prozess kann das dann erkennen.
  Wegräumen muss man das natürlich ebenso wie das PID-File.
  - pq
    
    2009-08-12 11:45
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    ein lockfile kann ruhig liegenbleiben. wenn der lock weg ist, stört es ja nicht.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - betterworld
    
    2009-08-12 14:10
    
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    2009-08-12T09:29:45 nepos
    Wegräumen muss man das natürlich ebenso wie das PID-File.
    
    Das ist gar nicht so einfach. Wenn man flock und unlink kombiniert, koennen alle moeglichen Race Conditions auftreten (und gerade die will man ja mit Lockfiles eigentlich vermeiden). Also am besten einfach liegen lassen und nicht loeschen.
    
    Ach ja, und zu den PID-Files: Die sind mir in dieser Form auch suspekt. Denn wenn der Prozess gestorben ist, wird die PID irgendwann neu vergeben. Einfach mal diese PID zu killen kann also unvorhersehbare Folgen haben. (OK, Signal 0 schicken wird nichts schlimmes tun, aber unter Umständen fälschlicherweise annehmen, dass das Programm noch läuft.)
    Last edited: 2009-08-12 14:14:12 +0200 (CEST)
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - topeg
      
      2009-08-12 15:25
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Ein PidFile sollte auch etwas anders verwendet werden.
      Bei einem Deamon dient die Datei dazu fest zu legen welches Programm ein Startscript nun gestartet hat. Es kann ja vorkommen, dass ein Nutzer das Programm selber zu einem anderen Zweck startet. Neben der ProzessID sollte auch der Name des Programms mit dieser Pid geprüft werden beides zusammen ordnet das Programm einigermaßen eindeutig einem Startscript zu.
- GwenDragon
  
  2009-08-12 11:55
  
  User since
  2005-01-17
  14790 Artikel
  Admin1
  
  In $0 steht ja der Skriptname.
  
  Unter Unix?
  Mit einem Aufruf des externen Programms ps kannst du dir die laufenden Prozesse ausgeben und dann dort suchen ob die Zeichenkette der Variablen $0 schon mehrfach vorhanden ist.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- topeg
  
  2009-08-12 12:02
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Für Unix/Linux (wo halt "ps" zur Verfügung steht):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  #!/usr/bin/perl use strict; use warnings; if(scalar(grep{/$0/}`ps aux`)-1) { print "Laufe schon\n"; } else { sleep 10; }
  
  Unter Windows müsstest du das anders machen...
- fish12345
  
  2009-08-12 12:15
  
  User since
  2009-07-29
  8 Artikel
  BenutzerIn
  
  Danke für eure Tipps. Habe bei den Mönchen eine Lösung gefunden welche mit Lockfile realisiert ist:
  
  http://www.perlmonks.org/?node_id=590619

View all threads created 2009-08-12 11:26.