PerlでGoogle NewsのRSSを取得する方法を教えてください

2008/02/21 23:48

このQ&Aのポイント

PerlでGoogle NewsのRSS情報を取得して表示するプログラムを作成していますが、うまく情報が取得できません。
他のサイトのRSS情報は取得できるのに、なぜGoogle Newsだけが取得できないのか困っています。
どのようにすればPerlでGoogle NewsのRSS情報を取得できるのか、教えていただけませんか？

Perlでgoogle newsのRSSを取得する方法を教えて下さい。

Google NewsのRSS情報をperlで取得し、表示するプログラムを作っています。が、他のサイトのRSS情報は容易に取得できるのに、Google Newsだけは、取得できません。具体的には、、、 ----------------------------- #!/usr/local/bin/perl use LWP::Simple; use XML::RSS; my $url = 'http://news.google.com/news?hl=ja&ned=us&ie=UTF-8&oe=UTF-8&output=rss&q=aiko'; my $data_from_web = get($url); print <<"HTML"; Content-type: text/html <html> HTML print $data_from_web; print $url; exit; ----------------------------- ※URL部分が長すぎて一部省略されている様ですが、あえて２行で書くと、こうなっています。 http://news.google.com/news?hl=ja&ned=us&ie=UTF-8 &oe=UTF-8&output=rss&q=aiko'; 上記の様な簡単なプログラムで、歌手aikoのニュースに関する RSS情報を取得し、表示できるはずなのですが、実行してみても、何も表示されません。ちなみに、my $urlの部分を他のURL、例えば、日刊ゲンダイ http://headlines.yahoo.co.jp/rss/gen_ent.xml に差し替えて実行してみると、きちんと表示されます。また、ブラウザーのURLの窓に、直接、プログラム内の$url部分である http://news.google.com/news?hl=ja&ned=us&ie=UTF-8&oe=UTF-8&output=rss&q=aiko というURLを入れ、リターンキーを押すと、歌手aikoのニュースに関する RSS情報が直接ブラウザーで表示されます。なのに、上記のプログラムでは表示されないのです。（ブラウザー等の情報もPerlで送信しないとGoogle newsはRSS情報を送信してくれない？）どの様にしたら、perlでGoogle NewsのRSS情報を取得できるのか、教えていただけたら幸です。尚、参考にしたサイトは以下です。 Google news日本語版 http://news.google.com/news??hl=ja&ned=jp&ie=UTF-8&oe=UTF-8 Googleニュース日本語版のAtom/RSSフィード http://d.hatena.ne.jp/Gimite/20061205/1165287606 Googleニュース(日本語版)のRSSフィード http://blog.fkoji.com/2006/12091315.html Google News日本語版のRSSとAtomを取得してみるテスト http://ryouchi.seesaa.net/article/28534464.html PHPで実現しているGoogle NewsのRSS情報表示サイト http://www.usamimi.info/~ryouchi/googlenews/index.php Googleニュース用RSSジェネレータ http://g.1o4.jp/news-rss.html Google　NewsがRSSフィードを採用　 http://zen.seesaa.net/article/5748907.html ＲＳＳリーダーを使った情報収集術＆便利なフィード７選 http://google-mania.net/archives/895 以上、よろしくお願い致します。

keeeeeeen
お礼率71% (28/39)

Perl
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

tamahiro22
ベストアンサー率44% (8/18)

2008/02/22 03:38 回答No.1

どうやら、LWP::Simple の UserAgent が問題のようですね。以前も似た質問があり、Amazon も同じ理由で取得不可能でした。 LWP::Simple では UserAgent を指定できないので、 (モジュール自体を直接編集すれば可能) LWP::UserAgent を使い UserAgent を指定すれば良いです。 use LWP::UserAgent; my $url = 'http://news.google.com/xxxxxx; my $ua = new LWP::UserAgent; my $responce = $ua->get($url, 'User-Agent' => 'Mozilla/4.0'); my $data_from_web = $responce->content;

質問者