09/02/22 11:53:36
ここ(URLリンク(kage.monazilla.org))を参考に
●ログインするプログラムを書いてみました。
しかし、認証に失敗して、以下のセッション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='URLリンク(2chv.tora3.net)';
my %form = ('ID'=>$id,'PW'=>$pw);
my $req = POST($url,[%form]);