9 my $fh = new IO::File $sgf, 'r'
10 or warn "Unable to open $sgf for reading: $!"
14 my ($field,$value) = $_ =~ /^([A-Z]{2})\[([^\]]+)\]/;
15 next unless defined $field;
16 if ($field =~ /^[WB]R$/) {
17 $value =~ s/\s+dan/d/;
18 $value =~ s/\s+pro/p/;
19 $value =~ s/\s+kyu/k/;
21 $sgf{$field} = $value;
24 my $new_file = join('_',
33 map{defined $_?($_):()}
34 (@sgf{qw(EV RO PB BR)},'v',
38 print "Renaming $sgf to $new_file\n";
39 next if $sgf eq $new_file;
40 warn "$new_file already exists" and next if -e $new_file;
41 rename($sgf,$new_file);
43 $psgz =~ s/\.sgf/.ps.gz/;
45 my $new_psgz = $new_file;
46 $new_psgz =~ s/\.sgf/.ps.gz/;
47 rename($psgz,$new_psgz);