X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=opening-stats.pl;h=324b1582fc20d0e569fd383b4df77414063f5d44;hb=f7f8ba0f6969452da0b1d4bc6f4c8490006f7dbe;hp=f8dd56d502def8bc835b870c507cf9f52afa189e;hpb=6b7db3523af062ebb020b53592cf6ad0e128131c;p=remoteglot-book

diff --git a/opening-stats.pl b/opening-stats.pl
index f8dd56d..324b158 100755
--- a/opening-stats.pl
+++ b/opening-stats.pl
@@ -5,13 +5,29 @@ use CGI;
 use JSON::XS;
 use lib '..';
 use Position;
-use ECO;
-
-#ECO::unpersist();
+use IPC::Open2;
 
 my $cgi = CGI->new;
 my $fen = $ARGV[0];
+my ($chld_out, $chld_in);
+my $pid = IPC::Open2::open2($chld_out, $chld_in, "./binlookup", "./open.mtbl", "40");
+
+# Root position.
 my $pos = Position->from_fen($fen);
 my $hex = unpack('H*', $pos->bitpacked_fen);
-system("./binlookup", "./open.mtbl", $hex);
+print $chld_in $hex, "\n";
+my $line = <$chld_out>;
+
+print $line;
+chomp $line;
+
+my ($white, $draw, $black, $opening_num, $white_avg_elo, $black_avg_elo, $num_elo, $timestamp, @moves) = split / /, $line;
 
+# Explore one move out.
+for my $move (@moves) {
+	my ($np, $uci_move) = $pos->make_pretty_move($move);
+	my $hex = unpack('H*', $np->bitpacked_fen);
+	print $chld_in $hex, "\n";
+	my $line = <$chld_out>;
+	print "$move $line";
+}