}
undef $fh;
my $new_file = join('_',
- map {s/\s+/_/g;
- s/,//g;
+ map {s{/}{}g;
+ s/\s+/_/g;
+ s/,/_/g;
s/[_-]+/_/g;
s/^_//;
s/_$//;
@sgf{qw(PW WR DT RE)}
)
).'.sgf';
+ print "Renaming $sgf to $new_file\n";
next if $sgf eq $new_file;
warn "$new_file already exists" and next if -e $new_file;
rename($sgf,$new_file);