unknownplace.org

昨日の、こんな感じ。

エントリかこかな。

怖いもの見たさで買ったらまじまじいいいいいいいいいいいいい。

会社PCのWindows消してLinux入れようと思う！

けどどしよっかなぁ。Windowsに戻すときなんかノートンのアカウントとかまた買わなきゃいけない？かも？

まぁいいよねそんくらい。

hack a day を subscribe しようとしたら 5022 total subscribers とかなっててびびる。

購読してるフィードで一番なんじゃなかろうか。

出社。

@恋愛心理診断

08.unique

きわめて個性的、不思議味わいなヒトです。

いつも直観で稼動中です。 何事もその気にならないと頑固なほど興味を示しませんが、一度ハマるとヒトと違う輝きを発します。 たいていは、なんだかわがままっぽいのに不思議と周りから愛されているヒトです。

• 恋愛に関して「あんまり考えたことないなぁ…」と思っています。
• 平凡で単調なコトを好みません。
• 彼氏（彼女）と自分の好きなように付き合いたい…と思っています。
• 天然キャラと思っていると突然大胆なコトができるヒトです。

$| = 1 したらちゃんとうごいた。

さっきのやつだと 60 秒おきの実行以外にも hardstatus を更新するタイミング(新しいウィンドウつくったりとか)のたびに backtick.pl が実行されて重いので

#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

$| = 1;
my $ua = LWP::UserAgent->new;

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

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

とかにして

backtick 0 0 0 ${HOME}/.screen/backtick.pl

としてみる。

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

#!/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 切らないとうまく動かないのがあれ。これしてあればいらないけど。

なんか Ruby のひとに vim がやたら人気すぎるようなきがするんだけど。

あの人の影響？ そんなに衝撃をうけるものなのだろうか。