unknownplace.org

下記のようなスクリプトを書き

#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

my ($newmail) = qx{ find $ENV{HOME}/Maildir/new -type f | wc -l } =~ /(\d+)/;
my ($newbloglines) = LWP::UserAgent->new
    ->get('http://rpc.bloglines.com/update?user=Bloglines登録メアド&ver=1')
    ->content =~ /(\d+)/;

print "Mail($newmail) Feed($newbloglines) |\n";

screenrc で

hardstatus alwayslastline "[%02c] %`%w"
backtick 0 0 60 ${HOME}/.screen/backtick.pl

とかしてみた。

mew の biff 切らないとうまく動かないのがあれ。これしてあればいらないけど。