From 06d94dd384060fac20a7ca718177016f4b88d8a7 Mon Sep 17 00:00:00 2001 From: Morgan Wattiez Date: Mon, 22 Jul 2019 13:09:06 +0200 Subject: [PATCH] +script to see active working hours --- active_hours.sh | 1 + 1 file changed, 1 insertion(+) create mode 100755 active_hours.sh diff --git a/active_hours.sh b/active_hours.sh new file mode 100755 index 0000000..561d7b1 --- /dev/null +++ b/active_hours.sh @@ -0,0 +1 @@ +git log --author="Morgan" --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); }'