その1:RSSからstrfile形式のファイルを作る
まず、XML::RSSが入ってなかったのでcpanから入れた。
その後、anontwit/twitterのRSSフィードを適当にstrfile形式にするperlを書く。
#!/usr/local/bin/perl
use encoding 'utf-8';
use strict;
use LWP::Simple;
use XML::RSS;
my $content = get('http://twitter.com/statuses/user_timeline/anontwit.rss');
my $rss = new XML::RSS;
eval {
$rss->parse($content);
};
print "%\n";
for my $item (@{$rss->{'items'}}) {
print "$item->{title}\n%\n";
}
exit;
その2:fortune形式に変換して設置する
なんでstrfileって、/usr/sbinに入ってるんだろ...
# mkdir ~/.anontwit
# ./anontwit.pl > ~/.anontwit/anontwit
# /usr/sbin/strfile ~/.anontwit/anontwit ~/.anontwit/anontwit.dat
その3:メーラに仕込む
愛用のメーラ「mutt」の設定ファイル、~/.muttrcにシグネチャ設定を入れる
send-hook '~A' 'set signature="fortune ~/.anontwit|"'
その4:メールを書く
その5:殺伐とした空気を味わう
殺伐とした空気を味わいながら、ただただ返信を待つ。
良く考えたら、メール書く際に最新取ってくるってのもいいかも。あとtwitterって20件までしかデータ取れないのね...orz。