perl发送post数据

把post数据写进一个匿名数组里就行

#!/usr/bin/env perl -w
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $rp = $ua->post('http://www.baidu.com', ['username' => 'admin','passwd' => 'password'])
print $rp->content();

 或

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

my $rep = $ua->post('http://localhost/1.php', {cmd => 'whoami'});
#my $rep = $ua->post('http://localhost/1.php', ['cmd' => 'whoami']);
print $rep->content;

或

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new(POST => 'http://localhost/1.php');
$req->content('cmd=whoami');
$req->content_type('application/x-www-form-urlencoded');
my $rp = $ua->request($req);
print $rp->content;

如果用最后一个方法， 记得要带有content_type头才行