/[PERL] POST String entgegennehmen/auslesen

[Rolf Rost]

Mahlzeit,

POST wird aus STDIN gelesen, serverseitig, also das Script was den POST entgegennimmt.

Ein Perl Script was einen POST macht, könnte so aussehen:

#!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new(agent => 'XXL Browser');
use HTTP::Request::Common qw(POST);

1.Test - Umgebung

my $req = POST 'http://example.com/cgi-bin/variables.cgi',
[
name => 'rolf',
text => 'text',
num => '1234',
];

ggf. Referer faken

$req->referer('my_referer.wasweissich.de');
print $ua->request($req)->as_string;

File Upload:
use LWP::UserAgent;
$ua = LWP::UserAgent->new(agent => 'XXL Browser');
use HTTP::Request::Common qw(POST);

2.Test - FileUpload

my $req = POST 'http://example.com/cgi-bin/upload.cgi',
Content_Type => 'form-data',
Content => [
name => 'rolf',
text => 'text',
num => '1234',
filename   => ["c:/config.sys"],
];
print $ua->request($req)->as_string;

Gruss, Rolf