Problem mit fork() (Allgemeines zu Perl)

[thread]19790[/thread]

Problem mit fork()

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+25 replies

bianca

2015-09-05 20:15

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Hallo!

Habe Code nach folgendem Schema:

Code: (dl )

my $pid = fork();

# Fehler
if (!defined $pid) {
	# gibt Fehlermeldung aus
}

# Vater
elsif ($pid) {
	# gibt zurück an das aufrufende JS Ajax
}

# Sohn
else {
	# startet den neuen Prozess und stirbt
	close STDIN;
	close STDOUT;
	exec("perl meinscript.pl $$parameter");	# exec() kommt nicht zurück im Gegensatz zu system()
	exit();
}

Funktioniert auf einem Debian Host mit Perl "This is perl 5, version 18, subversion 2 (v5.18.2) built for x86_64-linux-gnu-thread-multi" und bei mir auf Win7 mit Strawberry "This is perl 5, version 18, subversion 4 (v5.18.4) built for MSWin32-x64-multi-thread" perfekt.

Auf einem anderen Debian Host bei einem anderen Hoster mit Perl "This is perl 5, version 14, subversion 2 (v5.14.2) built for x86_64-linux-gnu-thread-multi" klappt es nicht.
Und zwar bekommt das Ajax auf seinen Request nichts zurück vom Vater Prozess. Der Browser bringt einfach irgendwann mal die Meldung, dass der Request kaputt gegangen ist.

Verhält sich Perl 14 an der Stelle anders?
Wie kann ich der Ursache näher kommen, testen ist ja nicht ganz trivial, weil man auf einem shared Host ja nichts abfragen kann.

Danke

10 print "Hallo"
20 goto 10

jan

2015-09-05 20:53

User since
2003-08-04
2536 Artikel
ModeratorIn

Benutz kein shared hosting.
Ehrlich, die paar Euro, die man spart, verbraucht man viel zu schnell mit dem debugging von solchen Problemen.

Hier geht's vermutlich nicht um Perl, sondern um Buffering des Webservers, such in die Richtung weiter, teste das & kontaktiere deinen Provider.
Und stell auf managed server um, dann ersparst du dir viel Arbeit.
betterworld

2015-09-06 09:45

User since
2003-08-21
2614 Artikel
ModeratorIn

Es liegt garantiert auf jeden Fall am fork. Ich kann Deine Argumentation vollkommen nachvollziehen, dass das Problem auf keinen Fall in den riesigen Mengen von Code zu suchen ist, die Du weggelassen hast.
Lieblingsmodule: IPC::System::Simple, Path::Class
Raubtier

2015-09-06 10:34
User since
2012-05-04
1075 Artikel
BenutzerIn
Schritt 0: logging einbauen.

Also vor dem fork sowas wie log("forke jetzt") einbauen und dann danach sowas wie log("ich bin elternteil bzw kind") einbauen.

Und zweite Bemerkung: du hast diesen Code hier:
Code (perl): (dl )

1 2

exec("perl meinscript.pl $$parameter"); # exec() kommt nicht zurück im Gegensatz zu system() exit();
Exec kehrt bei Erfolg nicht zurück.(*) Daher sollte danach kein exit folgen, sondern unbedingt zuvor der Fehler geloggt werden: log("Exec konnte nicht ausgeführt werden")

(*) Erfolg ist hier weit definiert: It fails and returns false only if the command does not exist and it is executed directly instead of via your system's command shell
Last edited: 2015-09-06 10:36:58 +0200 (CEST)
+10 replies
bianca

2015-09-08 08:05
User since
2009-09-13
7016 Artikel
BenutzerIn
Danke für eure Antworten.
Habe 2 Testscripts gemacht:

test_fork1.pl:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

#!/usr/bin/perl use strict; use warnings; use File::Basename; use IO::Handle; STDOUT->autoflush(1); my $pid = fork(); # Fehler if (!defined $pid) { print time()." Fehler bei fork()\n"; } # Vater elsif ($pid) { print time()." Hier ist der Vater\n"; } # Sohn else { print time()." Sohn im Vaterscript terminiert jetzt\n"; close STDIN; close STDOUT; exec("perl ".dirname(__FILE__)."/test_fork2.pl"); exit(); }
test_fork2.pl:
Code (perl): (dl )

1 2 3 4 5 6 7 8

#!/usr/bin/perl use strict; use warnings; use IO::Handle; STDERR->autoflush(1); print STDERR time()." Hier ist der Sohn, warte 5 Sekunden\n"; sleep(5); print STDERR time()." Sohn terminiert jetzt\n";
Dann auf beiden Servers jeweils über den Webserver (ist eine selbstgebaute Art Shell) aufgerufen und das erhalten:

Ablauf auf dem Server mit Perl 5, version 18, subversion 2 (v5.18.2) built for x86_64-linux-gnu-thread-multi wie erwartet:
- 1441691919 Hier ist der Vater
- 1441691919 Sohn im Vaterscript terminiert jetzt
- 1441691919 Hier ist der Sohn, warte 5 Sekunden
- - 5 Sekunden Pause -
- 1441691924 Sohn terminiert jetzt
Ablauf auf dem Server mit Perl 5, version 14, subversion 2 (v5.14.2) built for x86_64-linux-gnu-thread-multi:
- 1441691708 Hier ist der Sohn, warte 5 Sekunden
- - 5 Sekunden Pause -
- 1441691713 Sohn terminiert jetzt
- 1441691708 Hier ist der Vater
- 1441691708 Sohn im Vaterscript terminiert jetzt
Was könnte der Grund für das Verhalten des unteren Servers sein?

Editiert von bianca: use IO::Handle; STDOUT->autoflush(1); bei beiden ergänzt
Last edited: 2015-09-08 08:09:56 +0200 (CEST)
10 print "Hallo"
20 goto 10
- +9 replies
- GUIfreund
  
  2015-09-08 17:45
  
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  
  2015-09-08T06:05:08 bianca
  Was könnte der Grund für das Verhalten des unteren Servers sein?
  
  Die Timestamps zeigen es: Beide Server verhalten sich gleich. Nur die Reihenfolge der Ausgaben ist anders. Grund ist offenbar, dass die Ausgabe von print STDOUT bei Perl 5.14 gepuffert ist, bei Perl 5.18 nicht.
  Gruß
  GUIfreund
  - +3 replies
  - jan
    
    2015-09-08 19:26
    User since
    2003-08-04
    2536 Artikel
    ModeratorIn
    
    Wenn's nur das ist, sollte
    
    Code (perl): (dl )
    
    $|++;
    
    eventuell helfen. Kann aber auch der Webserver sein, der da buffert.
    - +2 replies
    - bianca
      
      2015-09-08 19:44
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Hab ja autoflush eingeschaltet. Ändert am Verhalten auf beiden Servern leider nichts.
      10 print "Hallo"
      20 goto 10
      - jan
        
        2015-09-09 22:49
        
        User since
        2003-08-04
        2536 Artikel
        ModeratorIn
        
        Hat nichts mit Perl zu tun ... und siehe meinen ersten Rat. Für kompliziertere Sachen brauchst Du mehr als Shared Hosting.
  - +5 replies
  - Muffi
    
    2015-09-09 12:46
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Ach bin ich doof, ich hab das für Prozess-IDs gehalten!
    1 + 1 = 10
    - +4 replies
    - bianca
      
      2015-09-09 19:17
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      ??
      Du hattest doch garnichts gepostet oder bin ich blind?
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - Muffi
        
        2015-09-10 08:44
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Nö, aber zu dem Schluss wär ich auch gleich gekommen, wenn ich bemerkt hätt, dass das timestamps sind.
        1 + 1 = 10
        
        bianca
        
        2015-09-10 09:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Achso. OK
        Ich frage mal den Hoster.
        10 print "Hallo"
        20 goto 10
        
        GUIfreund
        
        2015-09-11 15:26
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        Das habe ich im geposteten Kode gesehen, z. B.
        
        Code (perl): (dl )
        
        print time()." Hier ist der Vater\n";
        
        Gruß
        GUIfreund
+11 replies

bianca

2015-09-11 09:43

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Guten Morgen!
Nun wollte ich mittels eines Testscripts dem Perl v5.14.2 Hoster zeigen, wo das Problem liegt.
Leider ist es nun so, dass dieses Testscript auf dem Perl v5.18.4 Server nun auch nur noch ungefähr jedes fünfte mal wie erwartet reagiert. Das Original Script hingegen verhält sich auf dem v5.18.4 nach wie vor wie erwartet. Das ist eine völlig neue Situation.
Erwartet Reaktion:

Quote
Polling Ergebnisse:
Initialisierung wird ausgeführt...
1441957001 Hier ist der Vater, terminiere jetzt (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441957001 ***Z-1-1441957002 (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441957001 ***Z-1-1441957002 ***Z-2-1441957003 (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441957001 ***Z-1-1441957002 ***Z-2-1441957003 ***Z-3-1441957004 (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441957001 ***Z-1-1441957002 ***Z-2-1441957003 ***Z-3-1441957004 ***Z-4-1441957005 (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441957001 ***Z-1-1441957002 ***Z-2-1441957003 ***Z-3-1441957004 ***Z-4-1441957005 ***Z-5-1441957006 (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441957001 ***Z-1-1441957002 ***Z-2-1441957003 ***Z-3-1441957004 ***Z-4-1441957005 ***Z-5-1441957006 ***Z-6-1441957007 (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441957001 ***Z-1-1441957002 ***Z-2-1441957003 ***Z-3-1441957004 ***Z-4-1441957005 ***Z-5-1441957006 ***Z-6-1441957007 ***Z-7-1441957008 (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441957001 ***Z-1-1441957002 ***Z-2-1441957003 ***Z-3-1441957004 ***Z-4-1441957005 ***Z-5-1441957006 ***Z-6-1441957007 ***Z-7-1441957008 ***Z-8-1441957009 (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441957001 ***Z-1-1441957002 ***Z-2-1441957003 ***Z-3-1441957004 ***Z-4-1441957005 ***Z-5-1441957006 ***Z-6-1441957007 ***Z-7-1441957008 ***Z-8-1441957009 ***Z-9-1441957010 (0 Sekunden)
Fertig

Stattdessen kommt häufig (und genau das ist das Problem) dieses:

Quote
Polling Ergebnisse:
Initialisierung wird ausgeführt...
1441956750 Hier ist der Vater, terminiere jetzt (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1441956750 ***Z-1-1441956751 ***Z-2-1441956752 ***Z-3-1441956753 ***Z-4-1441956754 ***Z-5-1441956755 ***Z-6-1441956756 ***Z-7-1441956757 ***Z-8-1441956758 ***Z-9-1441956759 (0 Sekunden)
Fertig

Getestet mit Firefox 40.0.3 auf Win 7 durch ständiges STRG R nach der Meldung "Fertig". Ungefähr jedes fünfte mal ist es ok, dazwischen wie eine Art "Puffer".

Das Testscript benutzt exakt die selbe Syntax (sowohl Perl- wie auch JS-seitig) wie das Original bei dem mir der Fehler aufgefallen war und sieht so aus:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use JSON;
use Fcntl qw(:DEFAULT);
use IO::Handle;
STDOUT->autoflush(1);

my $pfad = '/mein_pfad_zum/cgi-bin';

my $t = time();

if (defined $ARGV[0]) {
    unlink("$pfad/test_fork.txt");
    if (sysopen(my $fh,"$pfad/test_fork.txt",O_WRONLY|O_APPEND|O_CREAT)) {
        $fh->autoflush(1);
        for (my $z = 0; $z < 10; $z ++) {
            print $fh "***Z-$z-".time()."\n";
            sleep(1);
        }
        close($fh);
    }
    exit();
}

my $cgi = new CGI;
my $parameter = $cgi->param('parameter');

if (!defined $parameter) {
    print STDOUT CGI->new->header(-charset=>'ISO-8859-15').<<HTML_TEIL
<!DOCTYPE html>
<html>
    <head>
        <title>fork() Fehler</title>
        <script src="//ajax.googleapis.com/ajax/libs/jquery/1.7.1/jquery.min.js"></script>
        <style type="text/css">
            #fehler {
                padding-top:    20px;
                color:          red;
                font-weight:    bold;
            }
            #out {
                padding-top:    20px;
            }
        </style>
    </head>
    <body>
        <div id="fehler"><u>Fehler:</u></div>
        <div id="out"><u>Polling Ergebnisse:</u><br></div>
        <script>
            var ini = true;
            function aktualisieren() {
                document.getElementById('out').innerHTML += (ini ? 'Initialisierung' : 'Polling')+' wird ausgeführt...<br>';
                var datapostobj = {
                    parameter: (ini ? 'ini' : 'poll')
                };
                console.log('Start Ajax mit Parameter "'+datapostobj['parameter']+'"');
                jQuery.ajax({
                    url:        '/cgi-bin/test_fork.pl',
                    data:       datapostobj,
                    dataType:   'json',
                    type:       'POST',
                    cache:      false,
                    success:    function(input) {
                        console.log('Ergebnis ist da');
                        document.getElementById('out').innerHTML += (input['text'] != '' ? input['text'] : 'nix')+'<br>';
                        ini = false;
                        if (input['text'].indexOf('Z-9') < 0) {
                            window.setTimeout(function() { aktualisieren(); },1000);
                        }
                        else {
                            document.getElementById('out').innerHTML += 'Fertig<br>';
                        }
                    },
                    error:      function(xhrobj,textStatus,errorThrown) {
                        jQuery('#fehler').html('Verbindungsfehler textStatus: '+textStatus+' errorThrown: '+errorThrown);
                    }
                });
            }

            aktualisieren();
        </script>
    </body>
</html>
HTML_TEIL
;
}
elsif ($parameter eq 'ini') {
    my $pid = fork();

    # Fehler
    if (!defined $pid) {
        print STDOUT CGI->new->header(-charset=>'ISO-8859-15').time()." Fehler bei fork()\n";
    }

    # Vater
    elsif ($pid) {
        my %out = (text => time().' Hier ist der Vater, terminiere jetzt ('.(time() - $t)." Sekunden)\n");
        print STDOUT CGI->new->header(-charset=>'ISO-8859-15').JSON->new->encode(\%out);
    }

    # Sohn
    else {
        close STDIN;
        close STDOUT;
        exec("perl $pfad/test_fork.pl kommandozeile");
        exit();
    }
}
elsif ($parameter eq 'poll') {
    my %out = (text => '');
    if (sysopen(my $fh,"$pfad/test_fork.txt",O_RDONLY)) {
        undef local $/;
        $out{text} = <$fh>;
        close($fh);
    }
    else { $out{text} = "Fehler '$!'"; }
    $out{text} .= ' ('.(time() - $t)." Sekunden)\n";
    print STDOUT CGI->new->header(-charset=>'ISO-8859-15').JSON->new->encode(\%out);
}

@jan: ein Managed Server kann ich nicht bezahlen, hab ja keine Einnahmen damit.

Weiß jemand, warum das mal wie erwartet klappt und mal nicht?
Last edited: 2015-09-11 09:45:10 +0200 (CEST)

10 print "Hallo"
20 goto 10

bianca

2015-09-15 07:52

User since
2009-09-13
7016 Artikel
BenutzerIn

Möchte bitten, ob der ein oder andere das Script mal bei sich testen kann, ob das beschriebene wechselhafte Verhalten bestätigt oder nicht bestätigt werden kann. Ich würde gern herausfinden, warum es sich nicht immer gleich verhält.
10 print "Hallo"
20 goto 10
+9 replies

GwenDragon

2015-09-19 19:42

User since
2005-01-17
14748 Artikel
Admin1

Auf meinem Server mit Perl als CGI:

Code: (dl )

Fehler:
Polling Ergebnisse:
Initialisierung wird ausgefÃŒhrt...
1442684516 Hier ist der Vater, terminiere jetzt (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442684516 ***Z-1-1442684517 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442684516 ***Z-1-1442684517 ***Z-2-1442684518 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442684516 ***Z-1-1442684517 ***Z-2-1442684518 ***Z-3-1442684519 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442684516 ***Z-1-1442684517 ***Z-2-1442684518 ***Z-3-1442684519 ***Z-4-1442684520 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442684516 ***Z-1-1442684517 ***Z-2-1442684518 ***Z-3-1442684519 ***Z-4-1442684520 ***Z-5-1442684521 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442684516 ***Z-1-1442684517 ***Z-2-1442684518 ***Z-3-1442684519 ***Z-4-1442684520 ***Z-5-1442684521 ***Z-6-1442684522 ***Z-7-1442684523 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442684516 ***Z-1-1442684517 ***Z-2-1442684518 ***Z-3-1442684519 ***Z-4-1442684520 ***Z-5-1442684521 ***Z-6-1442684522 ***Z-7-1442684523 ***Z-8-1442684524 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442684516 ***Z-1-1442684517 ***Z-2-1442684518 ***Z-3-1442684519 ***Z-4-1442684520 ***Z-5-1442684521 ***Z-6-1442684522 ***Z-7-1442684523 ***Z-8-1442684524 ***Z-9-1442684525 (0 Sekunden) 
Fertig

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+8 replies

bianca

2015-09-19 19:46

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Vielen Dank. Bleibt das auch so, wenn du das Script im Browser mehrfach aufrufst?

10 print "Hallo"
20 goto 10

+7 replies

GwenDragon

2015-09-19 19:51

User since
2005-01-17
14748 Artikel
Admin1

Wenn ich die Url eingebe und dann Enter drücke, kommt nur eine Zeile mit ***Z..... !
Erst nach F5 kommen wieder alle.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+6 replies

bianca

2015-09-19 20:06

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Aha, ok, also passiert das bei dir auch. Hast du eine Idee, woran das liegen könnte?

10 print "Hallo"
20 goto 10

+5 replies

GwenDragon

2015-09-19 20:27

User since
2005-01-17
14748 Artikel
Admin1

Caching bei jquery oder Apache vielleicht?

Mal vorher den CGI-Header das Caching rausnehmen, setzen auf:

Code: (dl )

CGI::header(-Expires=>'now', -Cache_Control => 'no-cache, max-age=0')

Und bei jQuerys Ajax cache auf false setzen http://api.jquery.com/jQuery.ajax/
Last edited: 2015-09-19 20:37:57 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+4 replies

bianca

2015-09-20 07:51

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Danke dir für die Hilfe!

Caching im Ajax war schon drin und der Header führt zumindest bei mir nicht zum erwarteten Verhalten. Mit diesem Header hab ich in jeweils 10 Versuchen im Firefox garnicht und im IE zweimal das erwartete Verhalten gesehen.

Im IE hatte ich sogar mal eine Mischform, die ich bisher noch nie gesehen habe:

Quote
Polling Ergebnisse:
Initialisierung wird ausgeführt...
1442728063 Hier ist der Vater, terminiere jetzt (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1442728065 ***Z-1-1442728066 ***Z-2-1442728067 ***Z-3-1442728068 ***Z-4-1442728069 ***Z-5-1442728070 ***Z-6-1442728071 ***Z-7-1442728072 (0 Sekunden)
Polling wird ausgeführt...
***Z-0-1442728065 ***Z-1-1442728066 ***Z-2-1442728067 ***Z-3-1442728068 ***Z-4-1442728069 ***Z-5-1442728070 ***Z-6-1442728071 ***Z-7-1442728072 ***Z-8-1442728073 ***Z-9-1442728074 (0 Sekunden)
Fertig

Was kann das sein? Noch eine Idee?

Würdest du es bitte auch nochmal testen. Hier das neue Script:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use JSON;
use Fcntl qw(:DEFAULT);
use IO::Handle;
STDOUT->autoflush(1);

my $pfad = '/pfad_zum_cgi_bin/cgi-bin';

my $t = time();

if (defined $ARGV[0]) {
    unlink("$pfad/test_fork.txt");
    if (sysopen(my $fh,"$pfad/test_fork.txt",O_WRONLY|O_APPEND|O_CREAT)) {
        $fh->autoflush(1);
        for (my $z = 0; $z < 10; $z ++) {
            print $fh "***Z-$z-".time()."\n";
            sleep(1);
        }
        close($fh);
    }
    exit();
}

my $cgi = new CGI;
my $parameter = $cgi->param('parameter');

if (!defined $parameter) {
    print STDOUT CGI->new->header(
        -charset        => 'ISO-8859-15',
        -Expires        => 'now',
        -Cache_Control  => 'no-cache, max-age=0',
    ).<<HTML_TEIL
<!DOCTYPE html>
<html>
    <head>
        <title>fork() Fehler</title>
        <script src="//ajax.googleapis.com/ajax/libs/jquery/1.7.1/jquery.min.js"></script>
        <style type="text/css">
            #fehler {
                padding-top:    20px;
                color:          red;
                font-weight:    bold;
            }
            #out {
                padding-top:    20px;
            }
        </style>
    </head>
    <body>
        <div id="fehler"><u>Fehler:</u></div>
        <div id="out"><u>Polling Ergebnisse:</u><br></div>
        <script>
            var ini = true;
            function aktualisieren() {
                document.getElementById('out').innerHTML += (ini ? 'Initialisierung' : 'Polling')+' wird ausgeführt...<br>';
                var datapostobj = {
                    parameter: (ini ? 'ini' : 'poll')
                };
                console.log('Start Ajax mit Parameter "'+datapostobj['parameter']+'"');
                jQuery.ajax({
                    url:        '/cgi-bin/test_fork.pl',
                    data:       datapostobj,
                    dataType:   'json',
                    type:       'POST',
                    cache:      false,
                    success:    function(input) {
                        console.log('Ergebnis ist da');
                        document.getElementById('out').innerHTML += (input['text'] != '' ? input['text'] : 'nix')+'<br>';
                        ini = false;
                        if (input['text'].indexOf('Z-9') < 0) {
                            window.setTimeout(function() { aktualisieren(); },1000);
                        }
                        else {
                            document.getElementById('out').innerHTML += 'Fertig<br>';
                        }
                    },
                    error:      function(xhrobj,textStatus,errorThrown) {
                        jQuery('#fehler').html('Verbindungsfehler textStatus: '+textStatus+' errorThrown: '+errorThrown);
                    }
                });
            }

            aktualisieren();
        </script>
    </body>
</html>
HTML_TEIL
;
}
elsif ($parameter eq 'ini') {
    my $pid = fork();

    # Fehler
    if (!defined $pid) {
        print STDOUT CGI->new->header(
            -charset        => 'ISO-8859-15',
            -Expires        => 'now',
            -Cache_Control  => 'no-cache, max-age=0',
        ).time()." Fehler bei fork()\n";
    }

    # Vater
    elsif ($pid) {
        my %out = (text => time().' Hier ist der Vater, terminiere jetzt ('.(time() - $t)." Sekunden)\n");
        print STDOUT CGI->new->header(
            -charset        => 'ISO-8859-15',
            -Expires        => 'now',
            -Cache_Control  => 'no-cache, max-age=0',
        ).JSON->new->encode(\%out);
    }

    # Sohn
    else {
        close STDIN;
        close STDOUT;
        exec("perl $pfad/test_fork.pl kommandozeile");
        exit();
    }
}
elsif ($parameter eq 'poll') {
    my %out = (text => '');
    if (sysopen(my $fh,"$pfad/test_fork.txt",O_RDONLY)) {
        undef local $/;
        $out{text} = <$fh>;
        close($fh);
    }
    else { $out{text} = "Fehler '$!'"; }
    $out{text} .= ' ('.(time() - $t)." Sekunden)\n";
    print STDOUT CGI->new->header(
        -charset        => 'ISO-8859-15',
        -Expires        => 'now',
        -Cache_Control  => 'no-cache, max-age=0',
    ).JSON->new->encode(\%out);
}

Last edited: 2015-09-20 07:53:16 +0200 (CEST)

10 print "Hallo"
20 goto 10

+3 replies

GwenDragon

2015-09-20 09:21

User since
2005-01-17
14748 Artikel
Admin1

Erster Aufruf:

Code: (dl )

Fehler:
Polling Ergebnisse:
Initialisierung wird ausgefÃŒhrt...
1442733495 Hier ist der Vater, terminiere jetzt (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442733495 ***Z-1-1442733496 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442733495 ***Z-1-1442733496 ***Z-2-1442733497 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442733495 ***Z-1-1442733496 ***Z-2-1442733497 ***Z-3-1442733498 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442733495 ***Z-1-1442733496 ***Z-2-1442733497 ***Z-3-1442733498 ***Z-4-1442733499 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442733495 ***Z-1-1442733496 ***Z-2-1442733497 ***Z-3-1442733498 ***Z-4-1442733499 ***Z-5-1442733500 ***Z-6-1442733501 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442733495 ***Z-1-1442733496 ***Z-2-1442733497 ***Z-3-1442733498 ***Z-4-1442733499 ***Z-5-1442733500 ***Z-6-1442733501 ***Z-7-1442733502 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442733495 ***Z-1-1442733496 ***Z-2-1442733497 ***Z-3-1442733498 ***Z-4-1442733499 ***Z-5-1442733500 ***Z-6-1442733501 ***Z-7-1442733502 ***Z-8-1442733503 (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442733495 ***Z-1-1442733496 ***Z-2-1442733497 ***Z-3-1442733498 ***Z-4-1442733499 ***Z-5-1442733500 ***Z-6-1442733501 ***Z-7-1442733502 ***Z-8-1442733503 ***Z-9-1442733504 (0 Sekunden) 
Fertig

Zweiter Aufruf (URL ins Adressleiste gepastet und Enter):

Code: (dl )

Fehler:
Polling Ergebnisse:
Initialisierung wird ausgefÃŒhrt...
1442733539 Hier ist der Vater, terminiere jetzt (0 Sekunden) 
Polling wird ausgefÃŒhrt...
***Z-0-1442733540 ***Z-1-1442733541 ***Z-2-1442733542 ***Z-3-1442733543 ***Z-4-1442733544 ***Z-5-1442733545 ***Z-6-1442733546 ***Z-7-1442733547 ***Z-8-1442733548 ***Z-9-1442733549 (0 Sekunden) 
Fertig

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

bianca

2015-09-20 09:55

User since
2009-09-13
7016 Artikel
BenutzerIn

Danke für die Hilfe. Was kann das sein, was da puffert?
10 print "Hallo"
20 goto 10
bianca

2015-09-23 17:50

User since
2009-09-13
7016 Artikel
BenutzerIn

Hat hierzu noch jemand eine Idee, der ich nachgehen kann?
10 print "Hallo"
20 goto 10

View all threads created 2015-09-05 20:15.