git log --date=iso | perl -nalE 'if (/^Date:\s+[\d-]{10}\s(\d{2})/) { say $1+0 }' | sort | uniq -c|perl -MList::Util=max -nalE '$h{$F[1]} = $F[0]; }{ $m = max values %h; foreach (0..23) { $h{$_} = 0 if not exists $h{$_} } foreach (sort {$a <=> $b } keys %h) { say sprintf "%02d - %4d %s", $_, $h{$_}, "*"x ($h{$_} / $m * 50); }'
00 - 3 ******** 01 - 2 ***** 02 - 1 ** 03 - 0 04 - 0 05 - 0 06 - 1 ** 07 - 0 08 - 0 09 - 3 ******** 10 - 4 *********** 11 - 4 *********** 12 - 2 ***** 13 - 11 ******************************** 14 - 12 *********************************** 15 - 5 ************** 16 - 9 ************************** 17 - 2 ***** 18 - 4 *********** 19 - 0 20 - 0 21 - 3 ******** 22 - 17 ************************************************** 23 - 4 ***********
|