svn-log-by-committer.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;

my $pattern = shift @ARGV;
my $help;
GetOptions(
    'help' => \$help,
) or pod2usage(2);
pod2usage(2) if $help;

###
$, = $\ = "\n";

my $delim_pattern = qr/^(-+)$/;
my $delimiter;
my @blocks;
my $block_number;

while (<>) {
    chomp;
    if (($delimiter) = /$delim_pattern/) {
        $block_number++;
        next;
    }

    push @{ $blocks[$block_number] }, $_;
}

@blocks = grep { defined } @blocks;

for my $block (@blocks) {
    my @lines = @$block;
    if ($pattern and ($lines[0] =~ /$pattern/)) {
        print $delimiter, @lines;
    }
}


__END__

=head1 NAME

svn-log-by-committer.pl - 

=head1 SYNOPSIS

  $ svn log | svn-log-by-committer.pl committer

=head1 DESCRIPTION



=cut