bessarabov
/ script.pl
Last active Jan 3, 2021
Script to generate data shown in post 'At what time of day does famous programmers work? Part 2. Workweek vs Weekend.' — https://ivan.bessarabov.com/blog/famous-programmers-work-time-part-2-workweek-vs-weekend
View script.pl
| #!/usr/bin/perl | |
| # This script is made to show graphs with git commit time made on workweek vs weekend | |
| # | |
| # The desription of this script and results of its usage is avaliable at: | |
| # https://ivan.bessarabov.com/blog/famous-programmers-work-time-part-2-workweek-vs-weekend | |
| # | |
| # usage: | |
| # | |
| # git log --author="Sebastian Riedel" --format="%H %ai" | perl script.pl |
bessarabov
/ gist:674ea13c77fc8128f24b5e3f53b7f094
Last active Mar 12, 2021
One-liner to generate data shown in post 'At what time of day does famous programmers work?' — https://ivan.bessarabov.com/blog/famous-programmers-work-time
View gist:674ea13c77fc8128f24b5e3f53b7f094
| git log --author="Linus Torvalds" --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); }' | |