Chess::PGN::EPD 0.21

Chess::PGN::EPD is a Perl extension to produce and manipulate EPD text.

SYNOPSIS

#!/usr/bin/perl
#
#
use warnings;
use strict;
use Chess::PGN::Parse;
use Chess::PGN::EPD;

if ($ARGV[0]) {
my $pgn = new Chess::PGN::Parse($ARGV[0]) or die "Cant open $ARGV[0]: $!n";
while ($pgn->read_game()) {
$pgn->parse_game();
print join ( "n", epdlist( @{$pgn->moves()} ) ), "nn";
}
}
OR
#!/usr/bin/perl
#
#
use warnings;
use strict;
use Chess::PGN::EPD;

my $position = rnbqkb1r/ppp1pppp/5n2/3P4/8/8/PPPP1PPP/RNBQKBNR w KQkq -;
print join("n",epdstr(epd => $position,type => latex));
OR
#!/usr/bin/perl
#
#
use strict;
use warnings;
use Chess::PGN::Parse;
use Chess::PGN::EPD;

if ($ARGV[0]) {
my $pgn = new Chess::PGN::Parse($ARGV[0]) or die "Cant open $ARGV[0]: $!n";
while ($pgn->read_game()) {
my @epd;

$pgn->parse_game();
@epd = reverse epdlist( @{$pgn->moves()} );
print [ECO,",epdcode(ECO,@epd),""]n";
print [NIC,",epdcode(NIC,@epd),""]n";
print [Opening,",epdcode(Opening,@epd),""]n";
}
}