🚀 go-pugleaf

Sven Kirmess <Sven.Kirmess@gmx.net> schrieb in:
news:37D7DC47.F86736F4@gmx.net...
> Ich suche eine M�glichkeit aus einem Shell-(oder auch Perl-)Skript
> mehrere Prozesse zu starten und am Schluss zu warten, bis sich der
> letzte beendet hat, um dann weitere Befehle auszuf�hren.
>
> Bsp:
>
> -> ppp-up
> -> suck und rnes und fetchmail und zB wget (miteinander)
> -> alle Programme sind fertig: ppp-down
> -> halt
>
> L�sst sich sowas relativ einfach erstellen oder wird das zu
> umst�ndlich?
>
Funktioniert sowas nicht?

ppp-up
suck&
rnes&
fetchmail&
wget&
wait
ppp-down
halt

falls dich die ExitCodes der gestarteten Prozesse interessieren:
ppp-up
suck&
suckPID=$!
rnes&
rnesPID=$!
usw.
wait $suckPID
echo "suck exited with " $?
wait $rnesPID
echo "rnes exited with " $?

Deinen Versuch fuer eine forker Funktion in Perl wuerde ich
persoenlich eher so schreiben:

#!/usr/bin/perl -w

use strict;

$SIG{CHLD} = sub { wait() };

sub forker {
  my @procList   = @_;

  my $maxTries   = 5;

  my $proc;
  foreach $proc (@procList) {
    my $pid;
    my $retryCount = 0;
    do {
      $pid = fork();
      if ($! =~ /No more process/i) {
        # EAGAIN
        $retryCount++;
        if ($retryCount >= $maxTries) {
          die "fork failed after $maxTries retries";
        }
        sleep 10;
      }
    } until defined($pid);

    if ($pid == 0) {
      # Child
      exec $proc or die "exec $proc failed: $!";
      # should never get here
      exit 0;
    } else {
      # Parent
      print "Process: $proc started ($pid)\n";
    }
  }
}

# Testit
forker(@ARGV);
wait();
print "finished\n";