gistfile1.txt

    bessarabov@air:~/tmp/delete_after_2017-02-03/mojo$ git log --author="sri@cpan.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); }'
    502
    00 -  446 ********************************************
    01 -  403 ****************************************
    02 -  344 **********************************
    03 -  309 ******************************
    04 -  274 ***************************
    05 -  258 *************************
    06 -  236 ***********************
    07 -  154 ***************
    08 -  102 **********
    09 -   79 *******
    10 -  109 **********
    11 -  147 **************
    12 -  167 ****************
    13 -  205 ********************
    14 -  275 ***************************
    15 -  328 ********************************
    16 -  393 ***************************************
    17 -  460 *********************************************
    18 -  502 **************************************************
    19 -  448 ********************************************
    20 -  457 *********************************************
    21 -  433 *******************************************
    22 -  484 ************************************************
    23 -  446 ********************************************
    0 1s
    bessarabov@air:~/tmp/delete_after_2017-02-03/mojo$