963b8d6000d96d2379a46bd4a07cb59eef51ff51
[remoteglot] / book / opening-stats.pl
1 #! /usr/bin/perl
2 use strict;
3 use warnings;
4 use CGI;
5 use JSON::XS;
6 use lib '.';
7 use Position;
8 require 'ECO.pm';
9
10 #ECO::unpersist();
11
12 my $cgi = CGI->new;
13 my $fen = $ARGV[0];
14 my $pos = Position->from_fen($fen);
15 my $hex = unpack('H*', $pos->bitpacked_fen);
16 system("./binlookup", "./open.mtbl", $hex);
17