gistfile1.txt

    bessarabov@air:~/tmp/delete_after_2017-02-03/git$ git log --author="torvalds@ppc970.osdl.org" --author="torvalds@linux-foundation.org" --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; say $m; 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); }'
    73
    00 -    3 **
    01 -    7 ****
    02 -    3 **
    03 -    0
    04 -    0
    05 -    0
    06 -    0
    07 -   16 **********
    08 -   15 **********
    09 -   65 ********************************************
    10 -   59 ****************************************
    11 -   73 **************************************************
    12 -   59 ****************************************
    13 -   39 **************************
    14 -   51 **********************************
    15 -   63 *******************************************
    16 -   46 *******************************
    17 -   33 **********************
    18 -   32 *********************
    19 -   34 ***********************
    20 -   34 ***********************
    21 -   33 **********************
    22 -   22 ***************
    23 -   16 **********
    bessarabov@air:~/tmp/delete_after_2017-02-03/git$