わいえむねっと

use File::Find;
use Win32::File;

$url1 = 'svn://foo.bar/';
$url2 = 'svn://foo.bar:3691/';

find(sub{do{
    print "$1\n";

    Win32::File::SetAttributes 'entries', NORMAL;

    open FILE, 'entries' or die $!;
    @file = <FILE>;

    s/^$url1/$url2/ foreach @file;

    open FILE, '>entries' or die $!;
    binmode FILE;
    print FILE $_ foreach @file;

    Win32::File::SetAttributes 'entries', READONLY;
} if $File::Find::name =~ /(.*\/\.svn\/entries)$/}, '.');