Thread Echten Parallelprozess unter Linux
(42 answers)
Opened by bianca at 2013-11-01 11:00
Kann ich bei mir weder auf Windows mit Strawberry 5.10.1 noch auf Linux mit Perl 5.10.1 nachvollziehen.
Wenn ich dieses Script hier starte, warte ich 10 Sekunden auf die Ausgabe auf STDOUT. Die Datei dauert auch 10 Sekunden aber das ist ja in Ordnung. Warum ist das bei mir anders als bei dir? Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl use strict; use warnings; use diagnostics; use Fcntl qw(:DEFAULT :flock); my $pid; if ($pid = fork()) { # Eltern brauchen wir nicht mehr print STDOUT 'Laeuft...'; exit(); } else { # Kind muss arbeiten sleep(10); sysopen(my $fh,'test_fork_sohn.txt',O_WRONLY|O_APPEND|O_CREAT); print $fh 'hier bin ich nach 10 Sekunden'; exit(); } 10 print "Hallo"
20 goto 10 |