Mehrere Prozesse für Dual/Quad Core - #114311 (Allgemeines zu Perl)

2008-09-06 02:16

User since
2003-08-04
12208 Artikel
Admin1

Code: (dl )

perl -wle'
for my $id (1 .. 10) {

my $pid = fork();
unless (defined $pid) {
    die "Could not fork $!";
}
elsif (!$pid) {
    sleep rand(2);
    print "child $$";              
     exit;
}
else {
  print "parent $$ forked $pid";
}
}'

evtl. musst du das !$pid in $pid < 0 oder so umwandeln unter windows.
die logik jedoch einfach umzudehen hilft nichts, du musst schon verstehen, was du da tust.
wenn windows in einem child als $pid etwas negatives liefert, dann kommen sowohl
parent als auch child in den if-block. das willst du sicher auch nicht.
mehr kann ich jetzt auch nicht mehr sagen.
erst wenn du das korrekt gelöst, kannst du über die begrenzung der gleichzeitigen
prozesse nachdenken. aber ich bin nicht sicher, ob das unter windows alles so klappt.
unter linux mit POSIX. perldoc POSIX
$pid = POSIX::waitpid( -1, POSIX::WNOHANG );

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem