joseki/sgfvar2gtp.pl

   1 #!/usr/bin/perl
   2 # Convert SGF file to a sequence of GTP games, one game per each variation
   3 # that ends with /GOOD/ comment.
   4
   5 use warnings;
   6 use strict;
   7
   8 sub printgame
   9 {
  10         my ($sgf) = @_;
  11         my $pt = $sgf->getAddress();
  12
  13         my @moves;
  14         do {
  15                 my ($b, $w) = ($sgf->property('B'), $sgf->property('W'));
  16                 if ($b) { push @moves, ['b', $_] foreach @$b; }
  17                 if ($w) { push @moves, ['w', $_] foreach @$w; }
  18         } while ($sgf->prev());
  19
  20         print "boardsize 19\nclear_board\n";
  21         for my $move (reverse @moves) {
  22                 my ($sx, $sy) = @{$move->[1]};
  23                 my @abcd = split(//, "abcdefghjklmnopqrstuvwxyz");
  24                 my $x = $sy + 1; my $y = $abcd[18 - $sx];
  25                 if ("$y$x" eq "z20") {
  26                         $y = "pass"; $x = "";
  27                 }
  28                 print "play ".$move->[0]." $y$x\n";
  29         }
  30
  31         $sgf->goto($pt);
  32 }
  33
  34 sub recurse
  35 {
  36         my ($sgf) = @_;
  37         my $c = $sgf->property('C');
  38         if ($c and $c->[0] =~ /GOOD/) {
  39                 printgame($sgf);
  40         }
  41         for (0 .. $sgf->branches()-1) {
  42                 $sgf->gotoBranch($_);
  43                 recurse($sgf);
  44                 $sgf->prev();
  45         }
  46 }
  47
  48 use Games::SGF::Go;
  49 my $sgf = new Games::SGF::Go;
  50
  51 $sgf->readFile($ARGV[0]);
  52
  53 $sgf->gotoRoot();
  54 recurse($sgf);