Build with the new transposition data from pgn-extract. A lot of UI is still missing...

[remoteglot-book] / opening-stats.pl

diff --git a/opening-stats.pl b/opening-stats.pl
index 27cdee0a257de70d5a48e27a061204dfb1e7bfa2..24fdc99c1e31459d46c468df1f4f9469ba96af56 100755 (executable)
--- a/opening-stats.pl
+++ b/opening-stats.pl
@@ -16,11 +16,12 @@ my $pid = IPC::Open2::open2($chld_out, $chld_in, "./binlookup", "./open.mtbl", "
 my $pos = Position->from_fen($fen);
 my $hex = unpack('H*', $pos->bitpacked_fen);
 print $chld_in $hex, "\n";
-my $line = <$chld_out>;
 
-print $line;
-chomp $line;
+chomp (my $line = <$chld_out>);  # Root position hash.
+print $line, "\n";
 
+chomp (my $line = <$chld_out>);  # Actual stats.
+print $line, "\n";
 my ($white, $draw, $black, $opening_num, $white_avg_elo, $black_avg_elo, $num_elo, $timestamp, $pgn_file_number, $pgn_start_position, @moves) = split / /, $line;
 
 # Explore one move out.
@@ -28,6 +29,7 @@ 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>;
+       my $line = <$chld_out>;  # Ignore position hash.
+       $line = <$chld_out>;
        print "$move $line";
 }