人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

PERLのログイン-サブルーチン部分の修正について。
下記、スクリプトを修正して頂けないでしょうか?
最後の、open(OP,">Lonined_${ItemId}.html");部分で「こんにちは、 ID名 さん」と太文字で表示された状態でOKです。ゲストでは不可です。
なお、WWW-Mechanizeなど外部のモジュールは使わないで下さい。
但し、ディレクトリにそのまま置い使える場合(Windows XP環境)は問題ありません。
宜しくお願い致します。
use LWP::UserAgent;
use HTTP::Cookies;
use URI::Escape;
use HTTP::Request;
use HTTP::Headers;
my $ua = LWP::UserAgent->new;
$ua->cookie_jar( HTTP::Cookies->new(file => "${input_file}\.cookies",autosave => 1,));
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 6.0; ja; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1');
$ua->timeout(150);
$ua->post( "http://login.yahoo.co.jp/config/login?",
[
".tries" => "1"
,".src" => "ym"
,".last" => ""
,"promo" => ""
,".intl" => "jp"
,".bypass" => ""
,".partner" => ""
,".u" => ""
,".v" => "0"
,".fUpdate" => "Y"
,"hasMsgr" => "0"
,".chkP" => "Y"
,"login" => $loginid
,"passwd" => $password
,".persistent" => "y"
]
);


my $res = $ua->get( "http://page.auctions.yahoo.co.jp/jp/auction/".$ItemId);
my $content = uri_unescape($res->content);
my $source = $res->content;
open(OP,">Lonined_${ItemId}.html");
print OP $source;
close(OP);


●質問者: j4mika
●カテゴリ:インターネット ウェブ制作
✍キーワード:2.0 firefox Gecko GET HTML
○ 状態 :キャンセル
└ 回答数 : 1/1件

▽最新の回答へ

1 ● niwa-mikiho

一旦ログインページにアクセスして、.challenge を取得して送信してやらないと駄目です。

◎質問者からの返答

質問通り、スクリプトを修正して頂けないでしょうか?

また、このコードを改変して、.challengeを取得してそのままログインしても無理でした。

ソースを見直したところ、javascriptもエミュレートしないと無理なようです。また、他にも何かあるようです。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ