308 |
# ignore empty lines |
# ignore empty lines |
309 |
my $line = ""; |
my $line = ""; |
310 |
while ($line eq "") { |
while ($line eq "") { |
311 |
defined($line = <$h>) or die "No response!"; |
if (!defined($line = <$h>)) { |
312 |
|
print SGFFILEHANDLE ")"; |
313 |
|
close SGFFILEHANDLE; |
314 |
|
die "Engine crashed!\n"; |
315 |
|
} |
316 |
$line =~ s/(\s|\n)*$//smg; |
$line =~ s/(\s|\n)*$//smg; |
317 |
} |
} |
318 |
my ($equals, $move) = split(' ', $line, 2); |
my ($equals, $move) = split(' ', $line, 2); |
367 |
} |
} |
368 |
$first = chr($first); |
$first = chr($first); |
369 |
$second = chr($size+1-$2+96); |
$second = chr($size+1-$2+96); |
370 |
return "$second$first"; |
return "$first$second"; |
371 |
} |
} |
372 |
|
|
373 |
sub rename_sgffile { |
sub rename_sgffile { |