Perl - 模拟POST请求

记录。

use LWP::UserAgent;
my $UA = LWP::UserAgent-&gt;new;
 

my $URL = "http://www.abc.com/test.php";
my $response  = $UA-&gt;post( $URL, [ 'id' =&gt; '12','type' =&gt; 'abc'] );

if ( $response-&gt;is_success ) {
	print $response-&gt;content;
} else {
	print "ERROR\n";
}

use LWP::UserAgent;

my $UA = LWP::UserAgent->new;

my $URL = "http://www.abc.com/test.php";

my $response = $UA->post( $URL, [ 'id' => '12','type' => 'abc'] );

if ( $response->is_success ) {

print $response->content;

} else {

print "ERROR\n";

}

分享到：

日	一	二	三	四	五	六
« 3月
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

Perl – 模拟POST请求

发表评论取消回复

发表评论 取消回复

发表评论取消回复