POST Formular

[Mike]

Hi miteinander,

habe ein Problem mit einem Perl Script

Wenn ich das Script aufrufe (an der Shell) übergebe ich ihm einige Parameter um das virtuelle Post Formular abzusenden. Klappt wunderbar. Wenn ich allerdings für ARGV[0] oder ARGV[1] einen Wert mit 2 Punkten angebe, also zb. name.domain.de, dann funktioniert das POST Formular nicht mehr. Keine Ahnung wo es da komplikationen gibt...

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$ua = LWP::UserAgent->new();

$body="$ARGV[0] $ARGV[1]";

[to => 'otto', nickname => 'otti', from => 'karl', fromemail =>
'[e-mail]', body => $body];

$inhalt = $ua->request($anf)->as_string;

Kann mir jemand weiterhelfen?

[Matti Maekitalo]

use Mosche;

[Quellcode]

Könntest du bitte den _richtigen_ Quellcode posten, am besten per C&P? Der Code oben ist offensichtlich falsch (wo definierst du $anf?).

use Tschoe qw(Matti);

[Mike]

Hallo,

habe eine Zeile vergessen, Sorry!
Aber das Problem liegt ja glaub bei dem $body...

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$ua = LWP::UserAgent->new();

$body="$ARGV[0] $ARGV[1]";

my $anf =POST 'send.php',
[to => 'otto', nickname => 'otti', from => 'karl', fromemail =>
'[e-mail]', body => $body];

$inhalt = $ua->request($anf)->as_string;