28 lines
355 B
Perl
28 lines
355 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
#create processes to benchmark ptql stuff
|
||
|
|
|
||
|
|
my $num = shift || 10;
|
||
|
|
my @kids;
|
||
|
|
my $pid;
|
||
|
|
|
||
|
|
for (my $i=0; $i<$num; $i++) {
|
||
|
|
if (!defined($pid = fork())) {
|
||
|
|
die "cannot fork: $!";
|
||
|
|
}
|
||
|
|
elsif ($pid) {
|
||
|
|
#parent
|
||
|
|
push @kids, $pid;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
#child
|
||
|
|
sleep 10 while 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
for $pid (@kids) {
|
||
|
|
waitpid($pid, 0);
|
||
|
|
}
|