nicht angemeldet
use LWP::Simple;
getprint("$URL/up.inc");
Die Funktion setzt ein gewisses Verständnis von Perl und HTTP voraus, von dem dir noch ein bisschen zu fehlen scheint. Setze deshalb besser LWP::UserAgent ein.
Jetzt möchte ich unterschiedliche up.inc verwenden.
Wenn es in der $URL nicht vorhanden ist, soll es von $URL1 gelesen werden.
Wie kann ich das realisieren?
Bitte werde dir zuerst bewusst, dass getprint *nie* einen Fehler im Perl'schen Sinne wirft. Das Verhalten habe ich mal beschrieben, nachzulesen im Archiv (inkl. Lösungsvorschlag):
http://forum.de.selfhtml.org/archiv/2007/1/t145106/#m941694
Du siehst, dass du immer einen HTTP-Statuscode erhältst, den du zwar prüfen kannt, dessen Ausgabe aber stets trotzdem automatisch erfolgt (deswegen heißt die Funktion ja auch get*print*).
Bitte erwartet von mir keine großen Perl-Kenntnisse und schon gar keine Englisch-Kenntnisse (sodass ich die engl. Perl-Dokumentation lesen könnte).
Eine deutsche Quelle gibt's hier:
http://www.thomas-fahle.de/pub/perl/LWP/HTTP/HTTP_Get.html
Siechfred
Ein Selbständiger ist jemand, der bereit ist, 16 Stunden am Tag zu arbeiten, nur um nicht 8 Stunden für einen Anderen arbeiten zu müssen.
Struppi