🚀 go-pugleaf

Roland Schneider wrote:

> perldoc -f fork
>
> Und das warten bis sich die Processe beendet haben ist zu
> empfehlen sonst gibt's Zombies...

Ich hab mir da mal was gebastelt... w�re nett, wenn es jemand kurz
durchsehen k�nnte, da ich noch keine fork-Erfahrung habe...

-----------------------------------------------------------------
#! /usr/bin/perl

sub forker    {
 $_ = shift;
 FORK: {
  if ($pid = fork) {
    # Parent
    $_ = shift;           # Parameter um eine Stelle rotieren und falls
noch welche vorhanden sind, den n�chsten Child starten.
    if ($_) {forker ($_, @_)} ;
    wait;            # Auf den Child warten um Zombis aufzufangen.
  } elsif (defined $pid) {
    # Child
    `$_`;     # Aufrufen des eigentlichen Prozesses
    exit;
  } elsif ($! =~/No more process/) {
    # Nochmals versuchen...
    sleep 5;
    redo FORK;
  } else {
    # Fehler
    die "Kann fork nicht ausf�hren: $!\n";
  }
 }
}


forker('~sven/fork/x.sh','~sven/fork/x.sh','~sven/fork/x.sh');   #
Jeder zu startende Client wird in dieser Liste aufgenommen.
-----------------------------------------------------------------

Dieses Beispiel erzeugt mir 4 Perl und 3 Bash Prozesse... sollte
eigentlich kein Problem, oder?


Sven