Mit CGI und LWP Ausgabe vor Scriptende (solved) (Perl/CGI)

[thread]19011[/thread]

Mit CGI und LWP Ausgabe vor Scriptende [solved]

Tags: perl5 CGI HTML LWP Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+9 replies
maral

2014-04-06 11:15
User since
2011-12-03
12 articles
BenutzerIn
Ich weiß nicht wie ich das Problem sonst beschreiben soll. Dynamisches Aufbauen der Seite? Dynamische Rückgabe? Vom Prinzip möchte ich mit Perl bei einem langlaufenden CGI-Script die ersten Ergebnisse im Browser sehen, bevor das langlaufende Script zum Ende kommt.

Hier der Problemcode. Wie kann man bei der Ausgabe der HTML-Seite die ersten Ergebnisse schon angezeigt bekommen, wenn LWP noch die letzten Webseiten teste.
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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

#!/usr/bin/perl -w use strict; use warnings; use LWP::UserAgent; use CGI qw(param); use CGI::Carp qw(fatalsToBrowser set_message); set_message('There is a problem in the script.'); print "Content-type: text/html\n\n"; # Sehr lange URL-Liste my @url = ('','','','','',''); # Testurls sind hier im Formular des Forums entfernt worden, vermutlich um SPAM zu vermeiden (nehmt einfach die 4 funktionierende URLs und eine URL zu einer nicht existierenden Webseite # html head print '<html><head><title>Test</title></head><body>'; # loop foreach my $url (@url) { if (check_website($url) eq 'FEHLER') { print 'Fehler bei '.$url; } else { print 'ok' } print "<br />\n"; } # html foot print '</body></html>'."\n"; sub check_website{ my $url = shift; my $result = ''; my $agent = "UserAgent Test-Skript/v0.01"; my $ua = LWP::UserAgent->new(agent=>$agent); $ua->timeout(3); #Sekunden my $request = HTTP::Request->new('GET' => "$url"); my $response = $ua->request($request); if ( $response->is_success() ) { $result = "erfolgreich"; } else { $result = "FEHLER"; } return ($result); }
- +2 replies
- GwenDragon
  
  2014-04-06 11:47
  
  User since
  2005-01-17
  14816 articles
  Admin1
  
  Javascript und HTML: mit AJAX asynchron in Abständen die Ergebnisse druch Hintergrundskript abholen lassen und ins DOM der Seite einfügen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - maral
    
    2014-04-06 13:10
    
    User since
    2011-12-03
    12 articles
    BenutzerIn
    
    Das klingt etwas kniffliger als die andere Antwort.
- +3 replies
- guest wer
  
  2014-04-06 12:17
  
  schreibe den status regelmäßig in eine html-datei zeige die an, mit einem reload alle x sekunden
  Last edited: 2014-04-06 12:27:39 +0200 (CEST)
  - maral
    
    2014-04-06 13:05
    
    User since
    2011-12-03
    12 articles
    BenutzerIn
    
    Die Idee gefällt mir! Ja das sollte klappen. Danke dir.
  - GwenDragon
    
    2014-04-06 15:41
    
    User since
    2005-01-17
    14816 articles
    Admin1
    
    Dann aber nicht vergessen, das Caching im HTTP-Header auszuschalten.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Muffi
  
  2014-04-06 15:18
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Sollte eigentlich schon funktionieren, tuts nicht?
  1 + 1 = 10
- +2 replies
- GwenDragon
  
  2014-04-06 15:46
  User since
  2005-01-17
  14816 articles
  Admin1
  Vielleicht solltest du das Puffern von STDOUT ausschalten, damit der Webserver gleich die Daten sendet.
  Vor Ausgabe des ersten HTTP-Headers:
  
  Code (perl): (dl )
  
  1 2
  
  use IO::Handle; autoflush STDOUT 1;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Muffi
    
    2014-04-07 09:35
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Ansonsten (wenns damit auch nicht funktioniert) ist es ein bisserl Rumprobiererei. Dieses "Streaming" ist offiziell nirgends spezifiziert.
    Es bleibt dem Browser überlassen wann und ob er vor Verbindungsende Inhalte darstellt. Das ist aber nicht das große Problem, da die Browser da relativ willig sind Inhalte schnell darzustellen. Evtl. muss man ein paar Zeilen Dummyzeugs vorrausschicken, damit (ich glaub beim IE wars so) der Browser die Entscheidung trifft, dass nun genug Daten vorhanden sind um mit der Darstellung zu beginnen.
    Problematischer sind da sowas wie Firewalls/Virenkiller. Da sind manche der Meinung die müssen den kompletten Request sammeln, den dann checken und dann komplett weiterzuleiten. Das wär dann Pech.
    1 + 1 = 10

View all threads created 2014-04-06 11:15.