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

Question

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

以上、よろしくお願い致します。

tamahiro22 · Accepted Answer

どうやら、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;

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

どうやら、LWP::Simple の UserAgent が問題のようですね。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング