Hallo,
Hat mir da jemand ein Script beispiel?
Hast Du schon mal die Dokumenation 'lwpcook' durchgesehen? Da ist auch zwei Beispiele zu POST drin, damit sollte es eigentlich gehen.
<sample type="cut_and_paste">
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = POST 'http://www.perl.com/cgi-bin/BugGlimpse',
[ search => 'www', errors => 0 ];
print $ua->request($req)->as_string;
</sample>
Die Antwort des ASP Scripts ist mir egal!
Ok, die letzte Zeile aus dem Sample würdest Du dann ja nicht mehr brauchen, aber iregendeine Fehlerbehandlung würde ich schon vorsehen. Sonst suchst Du bei einem Fehlverhalten des Systems vergebens dnach der Ursache.
<sample type="cut_and_paste_slightly_modified">
$res = $ua->request($req);
if ($res->is_success) {
writeLogfile('hurra es klappte');
} else {
writeLogfile("Mist, schon wieder was faul: ' . $res->status_line) ;
}
</sample>
wobei 'writeLogfile' eine noch zu programmierende Funktion sein würde.
Grüße
Klaus