perl 模拟post提交

对于post分页的网站，用正常的在url后面加参数的方法已经不奏效（大多数情况下是可以的）。就需要用到LWP::UserAgent模块去post提交。

use LWP::UserAgent;
my $browser = LWP::UserAgent->new;

my $SUSUI_URL = "http://www.pilotage.jp/products/list.php?category_id=21";

my $response  = $browser->post( $SUSUI_URL, [ 'disp_number' => 20,'pageno' => 2 ] );

if ( $response->is_success ) {
print $response->content;
}
else {
print "Bad luck this time\n";
}