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头才行