Re: Linux 3.9-rc1

[Linus Torvalds]

On Sun, Mar 3, 2013 at 5:42 PM, Linus Torvalds
<torvalds@xxxxxxxxxxxxxxxxxxxx> wrote:
>
>     git log v3.8.. --author=Torvalds --merges |
>         egrep '^    ((Merge)|(Pull)) .* from '
>
> and then some nasty sed+sort crud, followed by some manual fixup. It's
> the kind of thing perl is perfect for, but I'm not much of a perl
> person, so I have never written a *good* script to just do this right.

Ok, this is still not good, but this at least makes my manual editing
minimal. There's a few extra lines that match the pattern that need
manual fixup, and some people with two different names (Ted vs
Theodore) but other than that it looks ok.

So do the above git long + egrep pipeline, and then pipe it to the
perl script below. I feel a git alias coming up in my future..

Real perl people may want to avert their eyes..

                Linus

---
#!/usr/bin/perl -w
use strict;

my (%map);

sub add_entry($$) {
    my ($key,$desc) = @_;

    if (exists $map{$key}) {
        my $obj = $map{$key};
        push(@$obj, $desc);
    } else {
        my @arr = ($desc);
        $map{$key} = \@arr;
    }
}

sub input {
    while (<>) {
        my ($type,$desc,$key) = (/^ *(\S*) *(.*) from *(.*)/);
        chomp($key = $3);
        chomp($desc = $2);
        chop $key if ($key =~ /(:|\.)$/);
        add_entry($key, $desc);
    }
}

sub by_name($$) {
        my ($a, $b) = @_;
        uc($a) cmp uc($b);
}

sub output {
    my ($key);

    foreach $key (sort by_name keys %map) {
        my ($obj, $desc);

        $obj = $map{$key};
        printf "%s: (%d)\n", $key, scalar(@$obj);
        print "\t$_\n" foreach @$obj;
        print "\n";
    }
}

input;
output;
exit(0)
--
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at  http://vger.kernel.org/majordomo-info.html
Please read the FAQ at  http://www.tux.org/lkml/