fork und growisofs (Allgemeines zu Perl)

[thread]16135[/thread]

fork und growisofs

Leser: 22

Articles: hide open all | hide show old branches

+13 replies
cyborg0001

2011-03-31 10:30
User since
2011-03-31
6 Artikel
BenutzerIn
Hallo zusammen,

hoffentlich bin ich hier richtig. Ansonsten bitte den Thread umsetzen. Bin ganz neu hier und weiß noch nicht so Bescheid, aber nun zu meinem Problem.

Ich möchte ein Script schreiben, dass mir einfach über die Kommandozeile eine DVD brennen kann. Dazu nutze ich growisofs. Ich gable das Skript. Während der Child-Prozess den eigentlichen Brennvorgang startet, soll der Parent-Prozess lediglich überwachen und den Fortschritt feststellen. Sobald der Child fertig ist, beendet er sich und der Parent-Prozess verlässt die Endlosschleife und macht weiter (Lead Out, etc.). Der entsprechende Codeschnipsel dazu:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

$pid_c=fork(); #create child as working slave if ($pid_c==0){system("growisofs -Z $device=$isofile >$tmpfile 2>&1");exit;}; #child process does the job if ($pid_c!=0) #parent job only does output { for(;;) { select(undef,undef,undef,0.1); #sleep for 0.1 sec # Fortschritt abprüfen... if (kill(0,$pid_c)==0){last;} #child finished; go on } }
Allerdings steigt das Programm mit folgendem Fehler aus (von growisofs)
Executing 'builtin_dd if=temp.iso of=/dev/sr0 obs=32k seek=0' :-( waipid failed: No child processes
Führe ich den Befehl direkt auf der bash-Shell aus, funktioniert es tadellos. Auch ohne forken, also wenn ich im Skript einfach so growisofs laufen lasse und auf die Prüfung durch einen zweiten Prozess verzichte, geht es.

Sieht jemand, was ich falsch mache?

Besten Dank im Voraus.

Viele Grüße,
Cybi
Last edited: 2011-03-31 10:33:38 +0200 (CEST)
- +6 replies
- GwenDragon
  
  2011-03-31 10:40
  User since
  2005-01-17
  14536 Artikel
  Admin1
  Dir ist nicht klar, dass das fork auch fehlschlagen kann.
  Es liefert dabei undef als Rückgabewert.
  
  Du vergleichst in deinem Code in Zeile 3 undef mit 0.
  undef ist mit 0 verglichen immer wahr:
  ~ perl -e "print undef==0" 1
  
  Vorschlag:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  $pid_c=fork(); #create child as working slave if (defined $pid_c) { if ($pid_c==0) #child process does the job { system("growisofs -Z $device=$isofile >$tmpfile 2>&1"); exit; } else #parent job only does output { for(;;) { select(undef,undef,undef,0.1); #sleep for 0.1 sec # Fortschritt abprüfen... if (kill(0,$pid_c)==0) { last; #child finished; go on } } } } else { die ("Cant fork!"); }
  
  //EDIT2:
  Wenn dir wichtig ist, wo der Ausfruf von system hakte, solltes du die Doku zu system und $? lesen.
  Last edited: 2011-03-31 10:55:12 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +5 replies
  - cyborg0001
    
    2011-03-31 10:53
    
    User since
    2011-03-31
    6 Artikel
    BenutzerIn
    
    Hallo Gwen,
    
    danke für die schnelle Antwort. An das Abtesten habe ich gedacht. Ich hab den Codeschnipsel der Übersicht halber nur soweit reduziert, wie möglich. Also daran liegt es leider nicht.
    
    Viele Grüße,
    Cybi
    
    EDIT: auch $?=-1 sagt nur "No child processes"
    Last edited: 2011-03-31 11:05:15 +0200 (CEST)
    - +4 replies
    - GwenDragon
      
      2011-03-31 11:46
      
      User since
      2005-01-17
      14536 Artikel
      Admin1
      
      2011-03-31T08:53:58 cyborg0001
      EDIT: auch $?=-1 sagt nur "No child processes"
      
      Wie? Das ist aber ein Zuweisung an $?, kein Vergleich.
      Und wo prüfst du $? im Code?
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +3 replies
      - cyborg0001
        
        2011-03-31 11:50
        
        User since
        2011-03-31
        6 Artikel
        BenutzerIn
        
        Das habe ich auf deinen Hinweis hin nachträglich eingebaut. Ich habe den System call ausgeführt und dann festgestellt, dass $? den Wert -1 hat und dann den Fehler ausgegeben:
        
        Code (perl): (dl )
        
        if ($?==-1){print "Failure: $!\n";exit;}
        
        +2 replies
        
        GwenDragon
        
        2011-03-31 12:33
        
        User since
        2005-01-17
        14536 Artikel
        Admin1
        
        Prüfst du das zwischen dem system und dem exit?
        
        Code (perl): (dl )
        
        1 2 3
        
        system("growisofs -Z $device=$isofile >$tmpfile 2>&1"); if ($?==-1){print "Failure: $!\n";} exit;
        
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        cyborg0001
        
        2011-03-31 12:42
        
        User since
        2011-03-31
        6 Artikel
        BenutzerIn
        
        genau so ist es. Das zusätzliche exit war in der der Tat unnötig.
- +5 replies
- murphy
  
  2011-03-31 12:38
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  2011-03-31T08:30:39 cyborg0001
  [...]
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  for(;;) { select(undef,undef,undef,0.1); #sleep for 0.1 sec # Fortschritt abprüfen... if (kill(0,$pid_c)==0){last;} #child finished; go on }
  
  [...]
  
  Am Rande bemerkt ist diese Schleife nicht nur ineffizient, sondern auch umständlich. Den gleichen Effekt kann man mit dem extra dafür vorgesehenen Systemaufruf waitpid erreichen:
  
  Code (perl): (dl )
  
  waitpid($pid_c, 0); # wait until $pid_c terminates
  
  Dieser Aufruf wird entweder $pid_c zurückgeben, wenn der Kindprozess sich beendet hat, während waitpid auf ihn wartete oder -1, falls der Kindprozess schon vorher beendet und $SIG{CHLD} = 'IGNORE' gesetzt war.
  When C++ is your hammer, every problem looks like your thumb.
  - +4 replies
  - cyborg0001
    
    2011-03-31 12:47
    
    User since
    2011-03-31
    6 Artikel
    BenutzerIn
    
    Hmm, der Parent-Prozess soll aber nicht einfach nur auf den fertigen Child-Prozess warten, sondern in der Zwischenzeit was tun. Deswegen ist waitpid hier nicht nützlich.
    - +2 replies
    - murphy
      
      2011-03-31 12:52
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Ok, dann ist aber eventuell
      
      Code (perl): (dl )
      
      1 2 3
      
      use POSIX qw/:sys_wait_h/; ... waitpid($pid_c, WNOHANG); # poll whether process has terminated
      
      trotzdem der sinnvollere Aufruf als kill(0, ...): Blockt auch nicht, liefert aber gleich den Exitstatus des Kindprozesses in $? zurück, sobald er verfügbar ist, und den will man ja prüfen um zu sehen ob irgendwas schief ging.
      When C++ is your hammer, every problem looks like your thumb.
      - cyborg0001
        
        2011-03-31 13:53
        
        User since
        2011-03-31
        6 Artikel
        BenutzerIn
        
        Okay, das sieht sinnvoll aus. Danke. Ändert aber natürlich nichts an meinem eigentlichen Problem.
    - Gast wer
      
      2011-03-31 12:52
      
      Nonblocking wait:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      use POSIX ":sys_wait_h"; ... if(waitpid($pid_c, WNOHANG)){ ... }
      
      Last edited: 2011-03-31 12:54:16 +0200 (CEST)
- topeg
  
  2011-04-02 04:24
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Es ist hier günstig exec zu benutzen. Das startet das "ersetzt" das Script mit dem Programm. Die ProzessID bleibt gleich.
  more (5.0kb)
  
  Oder wenn du die Daten aus dem Programm lesen willst:
  
  more (9.5kb)

View all threads created 2011-03-31 10:30.