Perlについての質問箱 39箱目
■ このスレッドは過去ログ倉庫に格納されています
0100デフォルトの名無しさん
2009/02/22(日) 11:53:36●ログインするプログラムを書いてみました。
しかし、認証に失敗して、以下のセッションIDが返ってきます。
SESSION-ID=ERROR:ppppppppppp
何かアドバイスお願いします。
※IDとパスワードはここではダミーのものとしていますが
実際には自分自身のIDとパスワードを使用しています。
use strict;
use Socket;
use FileHandle;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
my $id='id';
my $pw='password';
my $ua = LWP::UserAgent->new;
$ua->agent('DOLIB/1.00');
$ua->default_header('X-2ch-UA' => 'Hoge/1.00');
my $url='https://2chv.tora3.net/futen.cgi';
my %form = ('ID'=>$id,'PW'=>$pw);
my $req = POST($url,[%form]);
■ このスレッドは過去ログ倉庫に格納されています