gistfile1.txt

    bessarabov@air:~/tmp/delete_after_2017-02-03/go$ git log --author="r@golang.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); }'
    417
    00 -   33 ***
    01 -    2
    02 -    2
    03 -    5
    04 -    0
    05 -    4
    06 -   20 **
    07 -   62 *******
    08 -   99 ***********
    09 -  170 ********************
    10 -  296 ***********************************
    11 -  374 ********************************************
    12 -  239 ****************************
    13 -  417 **************************************************
    14 -  396 ***********************************************
    15 -  370 ********************************************
    16 -  319 **************************************
    17 -  255 ******************************
    18 -   86 **********
    19 -   82 *********
    20 -  116 *************
    21 -  119 **************
    22 -   72 ********
    23 -   68 ********
    0 1s
    bessarabov@air:~/tmp/delete_after_2017-02-03/go$