0

何も入力せずにフォームを送信して、応答ページを取得しようとしています。

#!/usr/bin/perl -w

use LWP::UserAgent;
use HTTP::Request::Common;

$ua= LWP::UserAgent->new;
$req= POST('http://polling.newspoll.com.au/cgi-bin/polling/display_poll_data.pl?url_caller=&mode=trend&page=show_polls&question_set_id=4');

$res= $ua->request($req);
print $res->content;

しかし、応答ではなく、元のページ (フォーム付き) を印刷するだけです。私は何を間違っていますか?

編集:ページに渡す正しいパラメーターを見つけるだけの問題でした。これを理解するために、結果ページで Chrome 開発者ツールを使用し、[ネットワーク] タブ、[ヘッダー] の順に移動しました。少し下にスクロールすると、ページに提供されたすべてのフォーム パラメータが表示されます。私を正しい方向に向けてくれたamonに感謝します。

4

1 に答える 1