Mit CGI und LWP Ausgabe vor Scriptende (gelöst) - #174645 (Perl/CGI)

maral

2014-04-06 11:15

User since
2011-12-03
12 Artikel
BenutzerIn
[default_avatar]

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 )

#!/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);
}