Perlについての質問箱 14箱目
レス数が950を超えています。1000を超えると書き込みができなくなります。
0969デフォルトの名無しさん
NGNGuse LWP::UserAgent;
my $ua = LWP::UserAgent->new(
agent => "Mozilla/8.0",
);
my %formdata = (
STYLE => 'search',
S_WORD1 => '画像処理',
R_TYPE1 => '02',
BE_SEARCH => '検索実行',
sTime => time * 1000
);
my $res = $ua->post( $url, \%formdata );
print $res->is_success ? $res->content : 'Error.' ;
http://search.cpan.org/~gaas/libwww-perl-5.803/lib/LWP/UserAgent.pm
の例文に習ってこんな感じでいーんじゃないの？
レス数が950を超えています。1000を超えると書き込みができなくなります。