古い記事
ランダムジャンプ
新しい記事
月単位で ChangeLog に何バイト書いたかを調べてグラフにしてみました。
家の PC の ChangeLog 日記は青色、会社のは赤色、両方の合計が緑色となっています。
IMG
統計をとるプログラム clstat.pl は以下の通り。
#!/usr/bin/env perl
my %ctr;
my $c = 0;
foreach (reverse (<>)) {
    $c += length($_);
    if (/^(\d{4}-\d\d)/) { $ctr{$1} += $c; $c = 0; }
}
foreach (sort keys %ctr) { print "$_,$ctr{$_}\n"; }
使い方:
% clstat.pl ChangeLog > cl.csv

CSV 形式で出力されるので、あとはエクセルで読み込んでちゃちゃっとグ
ラフにします。

tac と組み合わせればワンライナーで行けますね。
% tac ChangeLog | perl -ne '$c+=length;if(/^(\d{4}-\d\d)/)
{$h{$1}+=$c;$c=0}END{for(sort keys %h){print"$_,$h{$_}\n"}}'

ちなみに changelog2graph というのがあります。
<http://namazu.org/~satoru/attic/changelog2graph>
こんなグラフ画像が出るそうです。
<http://www.namazu.org/misc/ChangeLog.png>