使用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;
转载于:https://blog.51cto.com/417722381/1881180