Hi Leute, (Hi Klaus *g*)
vielleicht kann mir jemand auf die Sprünge helfen ....
Version 1:
use HTTP::Request::Common qw(POST);
$url = 'http://localhost/cgi-bin/ihw/spksuche.pl';
$req = POST $url,[ Eingabe => "$var"];
Version 1 + dem unteren Quelltext läuft einwandfrei
Version 2:
use HTTP::Request::Common;
$url = 'http://localhost/cgi-bin/ihw/spksuche.pl';
http_modul = new HTTP::Request::Common;
$req = $http_modul->(POST $url,[ Eingabe => "$var"]);
Version 2 + dem unteren Quelltext läuft nicht (BrowserFehler: Kann keine Daten übermitteln)
Unterer Quelltext:
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$response = $ua->request($req);
$Dateipfad = "datei.txt";
# gibt den Pfad der Datei an
open(LAMAKOPFDATEI, ">$Dateipfad");
#öffnet die Datei datei.txt(
print LAMAKOPFDATEI $response->content();
# schreibt den Inhalt der Variable "response" in die Datei.
close(LAMAKOPFDATEI);
# schließt die Datei datei.txt
if ( $response->is_error() ) {
print "Error-Code : ", $response->code() , "\n";
print "Fehlermeldung: ", $response->message() , "\n";
}
else {
print $response->content() , "\n";
}
Kann mir dea jemand weitterhelfen, warum Version 2 nicht funktioniert ??
thx
Maik