Wie breche ich ein Script ab, das andere Programme aufruft? (gelöst) (Allgemeines zu Perl)

[thread]15145[/thread]

Wie breche ich ein Script ab, das andere Programme aufruft? [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+9 replies
Sven_123

2010-06-15 13:45
User since
2010-06-01
120 Artikel
BenutzerIn
Komme mal wieder nicht so recht weiter...:
Ich habe ein Script mit dem ich mehrfach gnuplot aufrufe um mir Graphen zu plotten. Ausschnittsweise so:
Code: (dl )

1 2 3

for $i ($ARGV[0] .. $ARGV[1]){ system "gnuplot plot.temp\nrm plot.temp"; }
In meinem plotfile hab ich Gnuplot angewiesen eine kleine Pause einzulegen, damit ich mir das Bild angucken kann. Ab und zu möchte ich das Skript nach den ersten Bildern abbrechen, weil es bei mehreren Bildern schon eine Weile braucht bis die durch sind und es etwas nervt, wenn alle drei Sekunden Fenster am Bildschirm aufploppen, wenn man etwas anderes machen möchte.

Drücke ich Strg+c wird aber nur gnuplot abgeschossen, d.h. schneller als ich klicken kann ist das nächste Fenster offen. Im Buch und hier im Forum bin ich auf fork gestoßen, mit dem ich ja einen neuen Prozess starten kann, da kam ich auf die Idee meine for-Schleife zu forken:
Code: (dl )

1 2 3 4 5 6 7

$pid =fork; unless ($pid){ for $i ($ARGV[0] .. $ARGV[1]){ system "gnuplot plot.temp\nrm plot.temp"; } } waitpid($pid,0);
Hier weiß ich mal wieder nicht zu 100% was ich mache, (v.a. was das ($pid,0) bedeutet und warum ich ein unless benutze), aber weder in meinem Buch noch in auf Perldoc ist fork wirklich ausführlich beschrieben (oder zu speziell, bin mir nicht sicher, ob ich das aus der perlipc lesen könnte) und so geht es zumindest...

Ein Strg+c beendet hier, wie ich festgestellt habe allerdings nur den äußeren Prozess, der innere läuft weiter.
Mein nächster Versuch war, in den äußeren Prozess ein
Code: (dl )

1 2

$SIG{INT}=\&sig_int; sub sig_int {$int++}
einzubauen und mit einer if-Schleife die überprüft ob was in der Variable steht die for-Schleife im inneren Prozess abzubrechen. Leider werden Variablen anscheinend nicht übergeben (zumindest nicht nachträglich - hat jedenfalls nicht funktioniert...*g).

Jetzt beim Schreiben kommt mir grad, ich könnte natürlich statt der Variablen eine Datei anlegen und in der Schleife überprüfen, ob diese existiert...ich probier das aufjedenfall mal aus, aber vielleicht könnte mir trotzdem jemand sagen, wie ich das "richtig" mach...vielen Dank im vorraus. :)

Edit: Das mit der Datei funktioniert - ich markier den mal als gelöst, da ich ja ne Lösung hab. Wenn mir jemand eine schönere Methode zeigen möchte, würd ich mich trotzdem freuen.
Last edited: 2010-06-15 13:50:31 +0200 (CEST)
- +4 replies
- Gast bianca
  
  2010-06-15 14:11
  
  Zum Thema fork'en und Prozesse hatte topeg hier mal einiges geschrieben: msg #137937
  - +3 replies
  - Sven_123
    
    2010-06-15 14:28
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Hmm...Danke - versteh zwar nicht alles, aber das "kill (15,$pid)" als sub funktioniert. Stimmt mein Schluss, dass $pid die Prozessnummer ist, die ich z.B. bei einem top (unter Linux) sehen würde? "15" ist ja die Art den Prozess zu beenden. Warum öffne ich dann aber den Prozess mit "unless"?
    
    Edit: Ersteres stimmt anscheinend, grad ausprobiert.
    Last edited: 2010-06-15 14:33:48 +0200 (CEST)
    - pq
      
      2010-06-15 14:29
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      siehe meine antwort.
      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
    - pq
      
      2010-06-15 14:35
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ich habe dirs in meiner antwort erklärt.
      wenn du davon was nicht verstehst, bitte nachfragen.
      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
- pq
  
  2010-06-15 14:28
  User since
  2003-08-04
  12208 Artikel
  Admin1
  das problem ist, dass während system() SIGINT ignoriert wird.
  
  ein fork-skelett sieht ungefähr so aus:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  if (my $pid = fork) { # im elternprozess, $pid ist die vom child } elsif (defined $pid) { # fork hat geklappt, bin im child # tu was exit; } else { die "Could not fork: $!"; }
  
  aber hast du schonmal unser wiki bemüht? da findet man öfter was, als man denkt.
  AllgemeinesFork
  
  sehr sinnvoll ist auch http://p3rl.org/perlipc
  
  so, und eine lösung könnte sein, dass du das fork machst, und wenn du dann ctrl-c drückst, bekommt der parent-prozess das signal. im parent killst du dann das child mit sigterm, weklches nicht ignoriert wird.
  
  etwa:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  my $pid =fork; $SIG{INT} = sub { # got ctrl-c, sending sigterm to child kill 15, $pid; exit; }; if ($pid) {#parent waitpid($pid,0); } elsif (defined $pid) { for (5 .. 10) { print "sleeping $_\n"; system("sleep $_"); } exit; } else { ... }
  
  edit: das mit dem unless finde ich ganz unsauber, du machst danach nichtmal ein exit im child. deshalb solltest du lieber erstmal sauberes forken lernen.
  Last edited: 2010-06-15 14:30:27 +0200 (CEST)
  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
  - Sven_123
    
    2010-06-15 14:42
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Ans Wiki hatte ich nicht gedacht, hatte, wie gesagt nur in der perldoc geguckt. Das mit dem unless hab ich so aus dem Lamabuch übernommen und am Lernen bin ich grad... ;)
    
    Danke für die Beispiele und Links, das nächste mal werd ich das Wiki nicht vergessen.
- pq
  
  2010-06-15 14:31
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  als weitere möglichkeit wurde mir gerade folgender link genannt:
  http://pleac.sourceforge.net/pleac_perl/processman... unter "Blocking Signals"
  hab ich aber noch nicht ausprobiert.
  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
- topeg
  
  2010-06-15 16:30
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Ein Paar Threads bei denen es auch um "fork" und das kontrollieren von Prozessen geht:
  
  Zeitüberwachung für ein Script
  Kill von Threads
  befehl zu einer gegebenen zeit ausführen
  Skript nach Programmaufruf fortsetzen
  Neue Shell per Shell oder Perl öffnen
  Returncode geforkter Prozesse verabeiten
  alarm für kind

View all threads created 2010-06-15 13:45.