昔からGoogle Readerの非公式APIを使ってみたかったので、 こちらを参考にPerlでアクセスしてみてる。 既読のアイテムのタイトルを表示するだけのスクリプトなら以下のコードになりました。 上記のサイトだとCookieにSIDを設定しろって書いてあるけれど、 「Authorization」ヘッダーに適切な値を入れてアクセスしたらデータが取れた。 use strict; use warnings; use LWP::UserAgent; use XML::Feed; my $email = 'my@emailaddress'; my $password = 'mypassword'; my $ua = LWP::UserAgent->new; my $res = $ua->post( 'https://www.google.com/accounts/ClientLogin', {
![Perlから非公式Google Reader APIにアクセスする - ゆーすけべー日記](https://cdn-ak-scissors.b.st-hatena.com/image/square/82ecf8466eeb4ea19e62e97ab7b10d1a2b98bd45/height=288;version=1;width=512/https%3A%2F%2Fyusukebe.com%2Ficons%2Fmyicon.png)