Perl – 模拟POST请求
记录。
|
1 2 3 4 5 6 7 8 9 10 11 12 |
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"; } |
