意味不明なエラー
LWP を利用してクエリー文字列を投げてみる。実行後、意味不明なエラーが出力される。syntax が間違っている訳ではなさそうだし。
検索をしてみると、MT 設置時のエラーとして表示されるとのこと。全然手がかりがない。
#!/opt/local/bin/perl -w use strict; use LWP 5.64; use URI; use Encode; use encoding 'euc-jp'; binmode(STDERR, ':raw :encoding(euc-jp)'); my $browser = LWP::UserAgent->new; my $url = URI->new('http://websearch.e-gov.go.jp/cgi-bin/common.cgi'); # クエリーの生成 $url->query_form( 'Search_Query' => encode('euc-jp', '白書'), 'CONFFILENAME' => 'common.conf.J', 'TEMPLATE' => 'keyword_list_J1.html', 'Search_Object' => 'TCEGOV', 'Search_Type' => 'NEW', 'Search_StartNo' => '1', 'Search_Max' => '20', 'Search_Page' => 'TEXT', 'Search_EmphasisField' => 'content', 'Search_Sort' => 'Ranking_Sort', 'Search_Ope' => 'A', 'Search_SortNum' => '1', 'SynBiz_Field' => 'Search_Query', 'SynBiz_Dickind' => 'ISS_EXPAND_DIC_BASIC%2CISS_EXPAND_DIC_USER01%2CISS_EXPAND_DIC_USER02', 'Kikan_Kubun' => '%CB%DC%BE%CA%C4%A3%A4%CE%A4%DF', 'Search_Range' => '%A5%BF%A5%A4%A5%C8%A5%EB%A1%A6%CB%DC%CA%B8%A4%B9%A4%D9%A4%C6', 'Search_Date' => '%28%BB%D8%C4%EA%A4%CA%A4%B7%29', 'Search_SYO' => '%B4%C4%B6%AD%BE%CA', 'Search_KKN' => '%28%BB%D8%C4%EA%A4%CA%A4%B7%29', 'Search_KEN' => '%28%BB%D8%C4%EA%A4%CA%A4%B7%29', 'TextBox_Value' => '%C7%F2%BD%F1', 'JCODE' => 'EUC', 'SYO' => '%B4%C4%B6%AD%BE%CA' ); my $response = $browser->get($url); print decode('euc-jp', $response->content);
% ./lwp_query.pl Use of uninitialized value in substitution iterator at /opt/local/lib/perl5/site_perl/5.8.8/URI/_query.pm line 16. Use of uninitialized value in substitution iterator at /opt/local/lib/perl5/site_perl/5.8.8/URI/_query.pm line 16. <!--省庁名とタイトル及び検索キーワードを含む該当部分表示用HTML--> (以下、HTML ソースの表示)