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:

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.