🚀 go-pugleaf

On 3 Lis, 11:18, neo77 <ne...@panth-net.com> wrote:
> 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/PGPkey 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

rzecz jasna:
# czekanie na reszte niedobitkow
while (waitpid(-1, 0) != -1) { }