わいえむねっと

2009/11
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

2009/11

2009/11/17 Tue

花粉の季節でもないのに猛烈に顔がかゆいと思ってたら、ビルの外壁工事のせいだこれ。
シックビル。 Subversionのポートを故あって変更したので、TortoiseSVNの管理ファイルを適当に書き換えてみる。

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)$/}, '.');

CRLFとCRが混在したファイルなので、binmodeを指定しないと悲しいことに。