SVK ログからCSVファイル

SVKのログから作業ログ作らなくちゃいけないので、とりあえず初期状態をCSVダンプできるツール書いた。使い方はこんな感じ：

  svk log | perl svk_to_csv.pl

#!/usr/local/bin/perl
use strict;
use Text::CSV_XS;
use IO::Handle;

my $csv = Text::CSV_XS->new({binary => 1});

my $io  = \*STDOUT;

while (<>) {

    if (/^r(\d+)\s+\([^\)]+\):\s+(\w+)\s+\|\s+(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} \+\d{4})/) {

        my ($revision, $author, $date) = ($1, $2, $3);

        # empty line follows

        <>;

        # read lines until we match a bunch of "-"

        my $message = '';

        while (<>) {

            last if /^-+$/;

            $message .= $_;

        }

        $message =~ s/^\s+//;

        $message =~ s/\s+$//;

        $csv->print($io, [$revision, $author, $date, $message]);

        $io->print("\n");

    }

}