O seguinte código Perl deve aproximá-lo muito, muito perto do que eu acho que você quer. Se você não estiver familiarizado com o Perl, será necessário instalar o módulo DateTime::Format::Strptime
do CPAN ... cpan install DateTime::Format::Strptime
.
Em seguida, imprima seu log git em um arquivo git log > git.log
.
Depois disso, cole o seguinte código em um arquivo, coloque o arquivo de log no mesmo diretório e execute-o.
Não é o meu código mais bonito ou mais eficiente, mas eu só tinha alguns minutos para colocar algo em conjunto.
#!/usr/bin/perl
use warnings;
use strict;
use DateTime::Format::Strptime;
my $log = 'git.log';
open my $fh, '<', $log or die $!;
my %dates;
my @order;
while (<$fh>){
if (/Date:\s+(.*?)(\d{2}:.*)/){
push @order, $1 if ! $dates{$1};
push @{ $dates{$1} }, "$1$2";
}
}
my $letter = 'A';
my $total_time = DateTime::Duration->new;
for my $day (@order){
my $start = $dates{$day}->[0];
my $end = $dates{$day}->[-1];
my $parser = DateTime::Format::Strptime->new(
pattern => '%a %b %d %H:%M:%S %Y %z',
on_error => 'croak',
);
my $dt1 = $parser->parse_datetime($start);
my $dt2 = $parser->parse_datetime($end);
my $total = $dt1 - $dt2;
$total_time = $total_time + $total;
print "$start\n$end\n";
print "Total $letter:\t";
print join ':', ($total->hours, $total->minutes, $total->seconds);
print "\n\n";
$letter++;
}
print "Total time overall: ";
print join ':', ($total_time->hours, $total_time->minutes, $total_time->seconds);
print "\n";