특정 디렉토리 안의 svn 저장소들을 덤프하는 펄 스크립트

dumpsvn.pl

#! /usr/bin/perl

use strict;
use warnings;

if ( $#ARGV < 0 ) {
    print "Usage : dumpsvn.pl <svn root dir>\n";
    exit 1;
}

my $svndir;
my $dh;
my $filename;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $now = sprintf "%04d_%02d_%02d_%02d_%02d", $year + 1900, $mon + 1, $mday, $hour, $min;

$svndir = shift @ARGV;

opendir $dh, $svndir;
while ( $filename = readdir($dh) ) {
    if ( -d "$svndir/$filename" && $filename !~ /^\.{1,2}$/ ) {
        my $ifh;
        my $ofh;

        print "*** START - $svndir/$filename ***\n";

        open $ofh, '>', "svn_$filename.dump";
        open $ifh, '-|', "svnadmin dump $svndir/$filename";
        while ( <$ifh> ) {
            print {$ofh} $_;
        }
        close $ifh;
        close $ofh;

        print "*** END   - $svndir/$filename ***\n";
    }
}
closedir($dh)