■

.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 eq '.' || $file eq '..');
      
      if($file eq '.svn'){
        print $dir.'/'.$file,"\n";
        rename ($dir.'/'.$file, $dir.'/.svn.old');
      }else{
        &f( $dir.'/'.$file );
      }
    }
  }
}

昼食に坦々麺を食べて850円の損失。まあ美味い。

600