+
+sub read_openings {
+ open my $fh, "../openings.txt"
+ or die "../openings.txt: $!";
+ for my $line (<$fh>) {
+ chomp $line;
+ my ($hash, $eco, $opening, $variation, $subvariation) = split /\t/, $line;
+ if ($variation eq '') {
+ $openings{$hash} = $eco . ": " . $opening;
+ } else {
+ $openings{$hash} = $eco . ": " . $opening . ": " . $variation;
+ }
+ }
+ close $fh;
+}