git.sesse.net Git - remoteglot/blob - 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 use ECO;
   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