Gitログを考えてみましょう：
commit 4d6b30238fbfc972ea4505cadf43abd316506d9e
Author: Dotan Cohen <[email protected]>
Date: Mon Jan 11 22:41:21 2016 +0200
Final foobar version
commit 4d6b30238fbfc972ea4505cadf43abd316506d9e
Author: Dotan Cohen <[email protected]>
Date: Mon Jan 11 19:11:51 2016 +0200
Working foobars
commit 4d6b30238fbfc972ea4505cadf43abd316506d9e
Author: Dotan Cohen <[email protected]>
Date: Mon Jan 11 10:31:37 2016 +0200
Broken foobars
commit 4d6b30238fbfc972ea4505cadf43abd316506d9e
Author: Dotan Cohen <[email protected]>
Date: Mon Jan 10 21:47:22 2016 +0200
Added foobars
commit 4d6b30238fbfc972ea4505cadf43abd316506d9e
Author: Dotan Cohen <[email protected]>
Date: Mon Jan 10 11:54:12 2016 +0200
Preparation for foobars
毎日各コミットメッセージの最初と最後の時間を取得し、計算を実行し、費やされた合計時間を推定するにはどうすればよいですか？このような：
Date: Mon Jan 11 22:41:21 2016 +0200
Date: Mon Jan 11 10:31:37 2016 +0200
TOTAL A: 12:09:44
Date: Mon Jan 10 21:47:22 2016 +0200
Date: Mon Jan 10 11:54:12 2016 +0200
TOTAL B: 09:53:10
TOTAL: 22:02:54
この質問の目的に応じて、すべてのコミットは同じ人によって実行されると仮定できます。 1日にコミットできる数には制限はなく、さまざまな月または年の境界にまたがる日付の数に制限はありません。
ベストアンサー1
次のPerlコードは、私が思うあなたが望むものに非常に近いです。 Perlを初めて使用する場合は、DateTime::Format::StrptimeCPANからこのモジュールをインストールする必要がありますcpan install DateTime::Format::Strptime。
次にgit logをファイルに出力しますgit log > git.log。
その後、次のコードをファイルに貼り付け、ログファイルを同じディレクトリに配置して実行します。
これは私のコードが最もきれいで効率的なコードではありませんが、何かを組み合わせるのに数分しかかかりませんでした。
#!/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";