[devel] о культуре работы с git-репозиториями

[Денис Смирнов]

On Sun, Jan 10, 2010 at 11:47:37PM +0300, Dmitry V. Levin wrote:

DVL> Есть много альтернативных вариантов достичь желаемого.
DVL> Например, у git-log есть параметр --format.

Вроде нечто делающее вид что работает написал. 

-- 
С уважением, Денис

http://freesource.info
----------------------------------------------------------------------------
-------------- next part --------------
#!/usr/bin/perl -w
use strict;

open( IN, "git log --merges --format=\"%P %s\" |" ) || die;

my %branches;

while (<IN>) {
    /^([0-9a-f]+)\s([0-9a-f]+)\sMerge branch '(.+?)'/ || next;
    $branches{$3} = $2 unless defined $branches{$3};
}

close(IN);

print $_. " " . $branches{$_} . "\n" foreach sort keys %branches;
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: Digital signature
URL: <http://lists.altlinux.org/pipermail/devel/attachments/20100111/8161f0d5/attachment.bin>