読者です 読者をやめる 読者になる 読者になる

Twitter のフォロワーのブログをまとめて LDR で購読する(結構手作業) - Higé au lait をPerlで

上記エントリーをみて、そういえばPerlで書いた気がする、と書き捨てディレクトリを見てみたら残ってたので貼り付けてみる。

#!/usr/bin/perl 
use strict;
use warnings;

use Net::Twitter;
use LWP::Simple;
use YAML;
use File::Spec;
use File::HomeDir;

my $conf = YAML::LoadFile(
    File::Spec->catfile(File::HomeDir->my_home, '.account')
)->{twitter};

my $tw = Net::Twitter->new(
    username => $conf->{username},
    password => $conf->{password},
) or die $!;

my $friends = $tw->friends;

my @urls = map $_->{url}, grep $_->{url}, @$friends;

my $api = 'http://rpc.reader.livedoor.com/feed/discover?links=';
getstore( ( $api . join "\n", @urls ), 'followers.opml' );