Korrektes gabeln (fork) unter Apache/Windows (war: Korrektes fork'en ?) (gelöst) - #137792 (Allgemeines zu Perl)

bianca

2010-05-31 18:38

User since
2009-09-13
6978 Artikel
BenutzerIn

user image

Nabend!
Habe hier - glaube ich - ein kleines Apache Verhaltensproblem mit einer Vater-/Kindprozess Sache.

Daher die Frage, wie fork't man ganz sauber und korrekt?

Das folgende Script führt bei mir leider dazu, dass die Ausgabe des Vaters erst kommt, wenn der Sohn sein sleep vollendet hat.
Die Ausgabe soll aber nicht auf den Sohn warten.
Das ist auch - glaube ich - die Ursache, warum in msg #137777 meine Testvariante 4 nicht laufen will.

Danke Euch

Code (perl): (dl )

#!/usr/bin/perl -W
use strict;
use warnings;
use IO::Handle;
STDOUT -> autoflush (1);        # sicherheitshalber statt $| = 1;
use CGI;
my $q = CGI -> new;
if (my $pid = fork ()) {
        # Vater
        my $header = $q -> header;
        print <<HTML_TEIL;
$header
<html>
        <head>
        </head>
        <body>
                <p>Da und gut isss</p>
        </body>
</html>
HTML_TEIL
        exit ();
        # /Vater
}
else {
        # Sohn
        sleep 20;
        exit ();
        # /Sohn
}

10 print "Hallo"
20 goto 10

Antworten mit Zitat