}
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);
+ my $psgz = $sgf;
+ $psgz =~ s/\.sgf/.ps.gz/;
+ if (-e $psgz) {
+ my $new_psgz = $new_file;
+ $new_psgz =~ s/\.sgf/.ps.gz/;
+ rename($psgz,$new_psgz);
+ }
}