HTTP::RequestでのWEBページの取得に失敗します。

質問

Perlで以下のような処理を行おうとしています。

　WEBページ１をダウンロードしてファイルに保存
　（http://xxx.xx.xx/xxx?aaa=bbb）
　↓
　保存したWEBページ１からFORMのパラメータを取り出して
　（<input type="hidden" name="xxx" value="ooo">）
　↓
　WEBページ２をダウンロードしてファイルに保存
　（http://xxx.xx.xx/xxx?xxx=ooo）

実行して保存されたファイルを見ると、
WEBページ２がWEBページ１と同じものになってしまいます。
（WEBページ２とWEBページ１は同じサーバです。）

詳しくは以下の通りです。
原因が分かる方いましたら、アドバイスお願いします。

WEBページ１のvalue="ooo"の値が毎回変わるので
とりあえず一度ファイルに保存
→そのファイルを開いて該当する値を探す
としています。

仕事で閲覧するページなので、具体的なアドレスが書けません。
わかりにくくなってしまって申し訳ありません。

コードは補足に書きます。

回答No.2

noname#9431

>WEBページ１のvalue="ooo"の値が毎回変わるので

こういうしゃらくさいことをしているページであれば、リファラー、クッキー、ユーザーエージェントあたりもチェックしているのではないでそうか。

補足

そのサイトは商品検索のページなのですが、
（WEBページ１で検索結果の一覧を表示して
WEBページ２でその商品の詳しい情報の一覧を
表示する、といったものです。）
実際のパラメータの部分は
10項目くらいあって、
そのうち２項目の値が変わるんです。

その２つは
...data_count=xxxxx&data_file=xxxxx...
となっています。

ここからは推測ですが、
WEBページ１を要求したときに
データベースからの検索結果を
サーバー上にファイルに保存して、
WEBページ２を要求したときは
その保存したファイルから読み込む、
と思ったのですが…。
（data_file=xxxxxとあるので。
ちなみにdata_count=xxxxxは検索結果の件数です。）

回答No.1

tochanx

では、とりあえずコードをお願いします。

補足

大変失礼しました。
補足で書こうと思ったのですが、
自分では書き込めないのですね…。

遅れましたが、コードは以下のようなものです

use LWP::UserAgent;

$id="xxx";
$pass="xxx";

#WEBページ１をダウンロードして"page1.html"の名前で保存する
if(&download("http://xxx.xx.xx/xxx?aaa=bbb", "page1.html") == 0){
　　　　　print "WEBページ１のダウンロードに失敗しました。<br>\n";
　　　　　exit;
}
print "WEBページ１をダウンロードしました。<br>\n";

#WEBページ１から値を取り出す

#ここは正しく処理されています。
#$valueにその値が入っています。

#WEBページ２をダウンロードして"page2.html"の名前で保存する
if(&download("http://xxx.xx.xx/xxx?xxx=$value", "page2.html") == 0){
　　　　　print "WEBページ２のダウンロードに失敗しました。<br>\n";
　　　　　exit;
}
print "WEBページ２をダウンロードしました。<br>\n";

#　　　　　WEBページをダウンロードしてファイルに保存するサブルーチン
#
#　　　　　引数1　ダウンロードするアドレス（ファイル名）
#　　　　　引数2　保存するファイル名
#
#　　　　　保存できたら1,できなかったら0を返す
#
sub download{
　　　　　$ua = LWP::UserAgent->new;
　　　　　my $req = HTTP::Request->new(GET => "$_[0]");
　　　　　$req->authorization_basic("$id", "$pass");
　　　　　#↑認証が必要なので
　　　　　$res = $ua->request($req, "$_[1]");
　　　　　if ($res->is_success) { return 1; }
　　　　　else { return 0; }
}