tumblrの最終更新日時

http://{UserID}.tumblr.com/api/read?num=1

XPath	Format
/tumblr/posts/post/@date-gmt	2008-04-10 14:31:27 GMT
/tumblr/posts/post/@date	Thu, 10 Apr 2008 23:31:27
/tumblr/posts/post/@unix-timestamp	1207837887

なんでこんなの調べてたかって言うと、ずっと更新してないのはもうfollowからはずそうと思って。今1100ちょっとfollowしているけど、とりあえず今年に入ってから一度も更新していないものはもう外すつもり。もう4月だからこれでも長すぎる感じなので、もうちょっと短くするかもしれない。

追記

30日間更新してないのは全部follow外しました。それでも900以上。思ってるより生きてるの多かったね。

もひとつ追記

リスト出すのに使ったスクリプト。エラー処理とかまともに考えてないけど。うまく動いたらお慰み、ってことで。

use strict;
use warnings;

use LWP::UserAgent;
use URI;
use XML::XPath;

sub api {
    my $uri = URI->new(shift);
    $uri->path('/api/read');
    $uri->query_form(num => 1);
    my $ua = LWP::UserAgent->new;
    my $req = $ua->get($uri);
    return $req->content;
}

my $t = time() - 60 * 60 * 24 * 30;

while (<DATA>) {
    chomp;
    my $uri = (split /\s/)[0];
    my $unixtime;
    eval {
        $unixtime = XML::XPath->new(xml => api($uri))->findvalue('/tumblr/posts/post/@unix-timestamp')->value || 0;
    };
    if ($@) {
        print "$uri\tNot Found\n";
    }
    elsif ($unixtime < $t) {
        print "$uri\t$unixtime\n";
    }
}
__DATA__
http://whitebell.tumblr.com/