ChangeLog 統計
2003-06-18-5
[ChangeLogMemo]
月単位で ChangeLog に何バイト書いたかを調べてグラフにしてみました。
家の PC の ChangeLog 日記は青色、会社のは赤色、両方の合計が緑色となっています。
統計をとるプログラム clstat.pl は以下の通り。
CSV 形式で出力されるので、あとはエクセルで読み込んでちゃちゃっとグ
ラフにします。
tac と組み合わせればワンライナーで行けますね。
ちなみに changelog2graph というのがあります。
<http://namazu.org/~satoru/attic/changelog2graph>
こんなグラフ画像が出るそうです。
<http://www.namazu.org/misc/ChangeLog.png>
家の PC の ChangeLog 日記は青色、会社のは赤色、両方の合計が緑色となっています。
統計をとるプログラム 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>