.svnフォルダを.svn.oldフォルダにリネームする。 use strict; my $BASE = 'c:/tools'; &f($BASE); sub f{ my $dir = shift; opendir DIR, $dir; my @files = readdir(DIR); closedir(DIR); foreach my $file(@files){ if(-d $dir.'/'.$file){ next if($file…