上記エントリーをみて、そういえば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' );