Perl コーディング初心者質問コーナー Part27

どうもレス数があわないとこがたまにあると思ったら
最新があぼーんされたとこだったのか

あぼーん

perlでGoogleの検索結果を取得するプログラムとして、

open(SEARCH, "search");
(ファイルsearchには文字コードEUCでクエリーが書かれています)
$query = <SEARCH>;
chomp($query);

$url ="http://www.google.co.jp/search?q=".$query."&hl=ja&lr=&ie=EUC-JP&oe=UTF-8&start=10&sa=N";
として、
$rootpage=get($url)としたのですが、
うまくとって来てくれず$rootpageがundefになっています。
どう対処したらよいのでしょうか?

>>558
get() って何？

>>559
聞く前にぐぐれ

LWP::Simpleモジュールにある
URL引数で指定されたドキュメントを返す関数です。
通常のページだとgetのカッコ内にurlを入れるだけで
そのページをとってこれるのですが、Googleではうまくいかないんです。
yahooの検索結果を取ってくるプログラムはできたのですが。。。

561まであるらしいんだがNGのお陰で556でスレ止まってるのが笑える。
何が書き込まれてるんだ全く…。

超気のせいだったｺﾞﾒ