Help for this page
[Event "Botvinnik Memorial"] [Site "Moscow"] ... comment} (16. Nd4 {nested comment}) 16... axb5 17. Nd4 (17. Qc5 c6 18. + Nd4 Ra6 19. f4 g6 20. Ra3 Qd7 21. Rfa1 Rfa8) 17... Qe8 18. f4 c5 19. Nxe6 the end 1/2-1/2
$game = { 'Event' => 'Botvinnik Memorial', ... '19w' => 'the end' } }
my %switchcolor = ( 'w' => 'b', 'b' => 'w'); my @gamechars = split //, $gametext; ... # "{" => "}", "(" =>")", "[" => "]" # in \@array, starting at $pos }
while (<>) { chomp; ... m/ \G( [^\w\d]+ )/gcx && do { print "other: $1\n"; redo; }; } }
while (m/$REmove|$REnumber|$REcomment|$REeolcomment/g) { print $1; }
package PGNParser; # temporary name use FileHandle; ... }; } }
www.com | www.net | www.org
No recent polls found