Gateway Timeout Fehler (Perl/CGI)

[thread]19626[/thread]

Gateway Timeout Fehler

Tags: perl5 CGI Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+11 replies
kimmy

2015-04-22 15:21
User since
2010-09-10
87 Artikel
BenutzerIn
Hallo Zusammen,

ich habe ein CGI-Skript, dass per LWP::Simple im Web die Daten abholt und in einer Excel Datei bereitstellt. Da die Datenabholung sehr lange (mehre Stunden) dauert bekomme ich folgende Meldungen.

Web-browser:
Geteway Timeout
The gateway did not receive a timely response from the upstream server or application.

XAMPP-Apache-logs-error.log:
script timed out before returning headers

Um es zu vermeiden, habe ich im CGI-Skript (am Ende der Schleife) eine Ausgabe hinzugefügt:
Code (perl): (dl )

print " ";
Es funktioniert. Aber was ich haben möchte, ist stattdessen eine Status Anzeige (od. Seite). Könnt jemand mir erklären, wie ich das machen kann?
- bianca
 
 2015-04-23 12:11
 
 User since
 2009-09-13
 7016 Artikel
 BenutzerIn
 
 Für eine Statusanzeige muss dein Clientbrowser auf den Server pollen. Und auf dem Server muss dieser Poll-Request bereitgestellt und beantwortet werden. Macht man clientseitig mit Ajax.
 10 print "Hallo"
 20 goto 10
- +5 replies
- GwenDragon
 
 2015-04-23 13:30
 
 User since
 2005-01-17
 14758 Artikel
 Admin1
 
 Der Server nörgelt ja rum, weil er in den Timeout rennt, weil das aufgerufene Skript gar nix zurück gibt.
 
 Allgemein gefragt: wie wäre es, wenn das Skript ein Kind forkt und das Elter immer ein Breitenloses Leerzeichen sendet, bis das Kidn fertig ist und die Datenbereit stellt?
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
 - +4 replies
 - kimmy
 
 2015-05-07 13:35
 User since
 2010-09-10
 87 Artikel
 BenutzerIn
 
 wie du gesagt hast, habe ich das Skrit wie folgt geteil.
 
 Code (perl): (dl )
 
 1 2 3 4 5 6 7 8 9 10 11 12 13
 
 if ( !defined(my $pid = fork())) { print STDERR "fork error\n"; exit(1); } elsif ($pid == 0) { close(STDOUT);close(STDIN);close(STDERR); system("perl", "./backend.pl"); } else { print " Thanks for your patience."; exit 0; }
 
 Jetzt bekomme ich keine Gateway Timeout Meldung. Aber wenn es lange dauert, wurde die Zeile nicht ausgegeben.
 
 Code (perl): (dl )
 
 print " Thanks for your patience.";
 
 Könntest du mir sagen, woran es liegt?
 - +3 replies
 - Linuxer
 
 2015-05-07 13:42
 
 User since
 2006-01-27
 3890 Artikel
 HausmeisterIn
 
 Ausgaben werden - wenn Du das nicht geändert hast - gepuffert.
 Variante 1) Gebe einen Newline am Ende des Strings aus.
 Variante 2) Schalte die Pufferung ab (frei ausgedrückt); siehe http://perldoc.perl.org/perlvar.html#HANDLE->autoflush(-EXPR-)
 Last edited: 2015-05-07 13:45:12 +0200 (CEST)
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
 - +2 replies
 - kimmy
 
 2015-05-07 14:32
 
 User since
 2010-09-10
 87 Artikel
 BenutzerIn
 
 Hi,
 danke für deine Antwort.
 Die Variation 1) hilft nicht. Falls ich richtig verstanden habe.
 
 Code: (dl )
 
 print " Thanks for your patience.\n";
 
 Wäre es besser, dass ich IO::Handle verwende?
 
 Code: (dl )
 
 1 2
 
 use IO::Handle; STDOUT->autoflush(1);
 
 Linuxer
 
 2015-05-07 14:53
 
 User since
 2006-01-27
 3890 Artikel
 HausmeisterIn
 
 2015-05-07T12:32:21 kimmy
 Hi,
 danke für deine Antwort.
 Die Variation 1) hilft nicht. Falls ich richtig verstanden habe.
 
 Code: (dl )
 
 print " Thanks for your patience.\n";
 
 Das war fast zu befürchten. Schade.
 
 2015-05-07T12:32:21 kimmy
 Wäre es besser, dass ich IO::Handle verwende?
 
 Code: (dl )
 
 1 2
 
 use IO::Handle; STDOUT->autoflush(1);
 
 Ich habe es ja als Varianten beschrieben. Wenn die erste Variante nicht funktioniert, dann solltest Du die zweite ausprobieren. Wie Du das autoflush umsetzt, ist Dir freigestellt. Wenn Du das mit autoflush() von IO::Handle machst, ist das gut und OK. Damit ist das im Code recht klar ersichtlich, was da passiert. Also sagen wir mal: Ja, es wäre besser.
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- Raubtier
 
 2015-04-23 14:54
 
 User since
 2012-05-04
 1076 Artikel
 BenutzerIn
 
 Wäre es nicht sinnvoller, wenn das Script sagt "Ich hole jetzt Daten ab, ich sende dir eine E-Mail, wenn ich fertig bin, tschüs."?
- GwenDragon
 
 2015-05-07 15:09
 
 User since
 2005-01-17
 14758 Artikel
 Admin1
 
 Eine Lösung bei Perl+CGI zeigt merlyn auf http://www.stonehenge.com/merlyn/LinuxMag/col39.ht...
 
 Musst du testen ;)
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
 
 2015-05-14 11:47
 
 User since
 2005-01-17
 14758 Artikel
 Admin1
 
 Unser Wiki sagt auch noch WieErstelleIchEineWarteSeite, als Anschaungsbeispiel.
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
 
 2015-05-19 10:00
 
 User since
 2005-01-17
 14758 Artikel
 Admin1
 
 @kimmy Wie hast du es nun gelöst?
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2015-04-22 15:21.