🚀 go-pugleaf

On 2 Lis, 17:54, Szymon Sokół <szy...@bastard.operator.from.hell.pl>
wrote:
> On Mon, 01 Nov 2010 20:31:40 +0100, Pawel wrote:
> > On 2010-11-01 20:22, Waldek M. wrote:
> >>> Zerknalem takze do opisu forka, ale z tego co zrozumialem, to fork
> >>> robi kopie procesu glownego, a nie uruchamia osobnego skryptu.
>
> >> Owszem, dlatego stosuje się najczęściej fork+exec.
> > A moglbys dac jakis przyklad kodu, bo nie bardzo wiem jak sie do tego
> > zabrac.
>
> Przykładów są tysiące (wystarczy w Google wpisać "perl fork exec
> example"...), np. tu:http://www.wellho.net/resources/ex.php4?item=p223/f1.pl
> albo i w FAQ tej grupy:http://www.kt.agh.edu.pl/perl-faq/Uruchamianie#20
> ale pewnie prościej będzie to wystrugać za pomocą modułu IPC::Run.
>
> --
> Szymon Sokół (SS316-RIPE) -- Network Manager                                 B
> Computer Center, AGH - University of Science and Technology, Cracow, Poland  Ohttp://home.agh.edu.pl/szymon/PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982  F
> Free speech includes the right not to listen, if not interested -- Heinlein  H

sub forker {
    my $pid = fork;
    if (my $pid) {                             # $pid > 0 => parent
       return;                                   # czy co tam innego
ma robic parent
    } elsif (defined $pid)  {               # $pid == 0  => child
       system(...);
       exit 0;
    } else {
          # $pid not defined => error podczas forkowania..
    }
}

no a teraz wystarczy tylko kontrolowac ilosc uruchamianych procesow,
ale to juz prosta sprawa

forker for (1 .. $MAX_PROC-1);
while (forker) {
    waitpid(-1, 0);   # czekaj az dowolne dziecko sie skonczy
}

# czekanie na reszte niedobitkow
my $p=-1;
waitpid(-1, 0) while $p != -1;


pozdrawiam
neo77