forum.lissyara.su

Код: Выделить всё

#!/usr/bin/perl -w
for($i = 1; $i < 3; $i++){
 my $pid = fork();
        if($pid){
                doThings($pid, $i);
                exit(0);
        }
}

sub doThings {
my %hash = ();
$hash{'1'} = 12;
my $tmp = waitpid($_[0], 0);
}