Maik: (Übergabe von Formulardaten), Warum so aber nicht so ?

Beitrag lesen

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