Perlについての質問箱 39箱目at TECHPerlについての質問箱 39箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト100:デフォルトの名無しさん 09/02/22 11:53:36 ここ（http://kage.monazilla.org/system_DOLIB100.html）を参考に ●ログインするプログラムを書いてみました。 しかし、認証に失敗して、以下のセッション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]); 101:デフォルトの名無しさん 09/02/22 12:51:19 >>100 手元で検証してみたが、サーバ側のバグかもしれない IDパラメータの「@」が「%40」にエンコードされていると認証に失敗した 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch