使用Perl进行POST访问的经典方法。


use strict;
use LWP;

my $browser = LWP::UserAgent->new();
my $response= $browser->post("http://localhost/test.php?action=search", [ "keyword" => $a]);
my $result = $response->content;
print $result;