Leser: 29
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
$|=1;
my $num=20; #oder eine beliebige andere Zahl
my @childs=();
for (1..$num) {
my $pid=fork();
die "Fehler: $!\n" unless(defined $pid);
if ($pid==0) { #kindprozess
print "Hier ist Kind Nr. $_\n";
sleep(5);
exit(0);
}
else {
push(@childs, $pid);
}
}
print "Alle Kinder gezeugt\n";
for (@childs) {
waitpid($_, 0);
print "Kind $_ gestorben\n";
}
print "Alle Kinder gezeugt\n";