Fehler abfangen bei WWW::Mechanize - #111878 (Netzwerkprogrammierung und Netzwerke mit Perl)

Kean

2008-07-05 12:54

User since
2004-08-18
463 Artikel
BenutzerIn

user image

Ich nutze das Modul WWW::Mechanize um Webseiten abzufragen. Dies geschieht in einer Schleife ungefähr 100 mal.
Leider bricht das Programm immer mal wieder ab und es kommt folgende Ausgabe:

Code: (dl )

Error GETing http://www.abc.org/test.php: Can't connect to www.abc.org:80 (Bad hostname 'www.abc.org') at attwarn.pl line 67

Kann ich dies irgendwie abfangen???

Hier ein kleiner Ausschnitt des Quellcodes:

Code (perl): (dl )

while ($ende > $a)
        {
        sleep($sek);

        if ($mech->get( "http://www.abc.org/test.php" ))
                {

                if ( $mech->content =~ /xy/m )
                        {
                        open (AUSGABE, ">>log.txt");
                        print AUSGABE datum()." : TEST!";
                        close (AUSGABE);
                        }
                else
                        {
                        open (AUSGABE, ">>log.txt");
                        print AUSGABE datum()." : TEST2";
                        close (AUSGABE);
                        }

        }