#!/usr/bin/perl
use strict;
use warnings;
use Chess::Pgn;
 
 
sub process_file {
    my ($file, $pos) = @_;
    my $p = new Chess::Pgn($file) || die "$file not found";
    my $more;
    do {
        $more = $p->ReadGame;
        $p->{Game} = "*\n";
        if ($p->{Round} =~ /^(\?)*$/) {
            $p->{Round} = "position $$pos";
            $$pos++;
        }
        print $p->PrintAll;
    } while ($more);
    $p->quit();
}
 
my $pos = 1;
process_file('partie2.pgn', \$pos);

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
 
use Readonly; # installer Readonly::XS si ce n'est pas fait
use Chess::Pgn;
 
sub custom_print ($$@) {
  my ($p, $pos) = (shift, shift);
 
  foreach (@_) {
    # si le champ Round est vide ou est composé de ?
    if (/Round/ and $p->{Round} =~ /^(\?)*$/) {
      print '[', $_, ' "', 'position ', $$pos++, '"]', "\n";
      next;
    }
    if (/Game/) {
      print "\n*\n\n";
      next;
    }
    print '[', $_, ' "', $p->{$_}, '"]', "\n";
  }
}
 
sub process_file ($$@) {
  my ($file, $pos, @keys) = (shift, shift, @_);
  
  my $p = new Chess::Pgn($file) || die "Fichier $file non trouvé!";
  my $more;
  do {
    $more = $p->ReadGame;
    custom_print($p, $pos, @keys);
  } while ($more);
  $p->quit(); 
}
 
# tous les mots clés, dans l'ordre de sortie désiré
Readonly my @keys = qw(Event    Site     Date     Round
               White    Black    Result   ECO
               WhiteElo BlackElo PlyCount Game);
 
my $pos = 1;
process_file('partie.pgn', \$pos, @keys);

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
 
use Chess::Pgn;
 
###
# on simule une fonction extérieure retournant la position et s'auto-incrémentant
# au moyen d'une closure perl
sub make_pos {
  my $pos = 1;
  return sub { $pos++ };
}
my $get_pos = make_pos();
###
 
sub custom_print ($) {
  my $p = shift;
 
  # tous les mots clés, dans l'ordre de sortie désiré
  use constant KEYS => qw(Event    Site     Date     Round
                          White    Black    Result   ECO
                          WhiteElo BlackElo PlyCount Game);
 
  foreach (KEYS) {
    # si Round et champ vide ou composé de ?
    if (/Round/ and $p->{Round} =~ /^(\?)*$/) {
      print '[', $_, ' "', 'position ', $get_pos->(), '"]', "\n";
      next;
    }
    # si Game
    if (/Game/) {
      print "\n*\n\n";
      next;
    }
    # default
    print '[', $_, ' "', $p->{$_}, '"]', "\n";
  }
}
 
sub process_file($) {
  my $file = shift;
 
  my $p = new Chess::Pgn($file) || die "Fichier $file non trouvé!";
  my $more_games;
  do {
    $more_games = $p->ReadGame;
    custom_print($p);
  } while ($more_games);
  $p->quit();
}
 
 
process_file('partie2.pgn');

#!/usr/bin/perl
use Modern::Perl;               # version moderne de use strict et use warnings, mais il faut installer le module
use experimental 'smartmatch';  # évite le warning lors de l'emploi de ~~ (utilisé pour vérifier si un mot est dans une liste)
use Chess::PGN::Parse;
 
my @mandatory = ('Event', 'Site', 'Date', 'Round', 'White', 'Black', 'Result');
my @optional  = ('WhiteTitle', 'BlackTitle', 'WhiteElo', 'BlackElo',
                 'WhiteUSCF', 'BlackUSCF', 'WhiteNA', 'BlackNA',
                 'WhiteType', 'BlackType',
                 'EventDate', 'EventSponsor',
                 'Section', 'Stage', 'Board',
                 'Opening', 'Variation', 'SubVariation',
                 'ECO', 'NIC',
                 'Time', 'UTCTime', 'UTCDate', 'Timecontrol', 'SetUp',
                 'FEN',
                 'Termination', 'Annotator', 'Mode', 'PlyCount');
 
# Va imprimer en sortie ce qui a été lu en entrée, modulo le parsing de Chess::PGN::Parse
sub process_file($) {
  my $pgnfile = shift;
  my $pgn = Chess::PGN::Parse->new($pgnfile) or die "Erreur fatale a la lecture de $pgnfile!";
  while ($pgn->read_game()) {
    # impression des champs obligatoires (hormis Game), ordre fixé, celui de @mandatory
    foreach (@mandatory) {
      my $text = $pgn->{'gamedescr'}->{$_};
      print "[$_ \"$text\"]\n";
    }
    # impression des champs non-obligatoires connus, ordre de @optional
    # changer l'ordre dans optional selon ses besoins en sortie
    foreach (@optional) {
      if ($pgn->{'gamedescr'}->{$_}) {
        my $text = $pgn->{'gamedescr'}->{$_};
        print "[$_ \"$text\"]\n";
      }
    }
    # impression des champs non-obligatoires restant, ordre aléatoire des clés
    foreach (keys %{$pgn->{'gamedescr'}}) {
      unless ($_ ~~ @mandatory or $_ ~~ @optional or $_ eq 'Game') {
        my $text = $pgn->{'gamedescr'}->{$_};
        print "[$_ \"$text\"]\n";
      }
    }
    # impression du champ Game
    print "\n$pgn->{'gamedescr'}->{'Game'}\n\n";
  }
}
 
 
process_file('partie.pgn');

#!/usr/bin/perl
use Modern::Perl;               # version moderne de use strict et use warnings, mais il faut installer le module
use experimental 'smartmatch';  # évite le warning lors de l'emploi de ~~ (utilisé pour vérifier si un mot est dans une liste)
use Chess::PGN::Parse;
 
my @mandatory = ('Event', 'Site', 'Date', 'Round', 'White', 'Black', 'Result');
my @optional  = ('WhiteTitle', 'BlackTitle', 'WhiteElo', 'BlackElo',
                 'WhiteUSCF', 'BlackUSCF', 'WhiteNA', 'BlackNA',
                 'WhiteType', 'BlackType',
                 'EventDate', 'EventSponsor',
                 'Section', 'Stage', 'Board',
                 'Opening', 'Variation', 'SubVariation',
                 'ECO', 'NIC',
                 'Time', 'UTCTime', 'UTCDate', 'Timecontrol', 'SetUp',
                 'FEN',
                 'Termination', 'Annotator', 'Mode', 'PlyCount');
 
sub process_file($) {
  my $pgnfile = shift;
  my $pgn = Chess::PGN::Parse->new($pgnfile) or die "Erreur fatale a la lecture de $pgnfile!";
  while ($pgn->read_game()) {
    # impression des champs obligatoires (hormis Game), ordre fixé, celui de @mandatory
    foreach (@mandatory) {
      my $text = $pgn->{'gamedescr'}->{$_};
      if (/Round/ and $text =~ /^(\?)*$/) {
        $text = 'position ' . $get_pos->();
      }
      print "[$_ \"$text\"]\n";
    }
    # impression des champs non-obligatoires connus, ordre de @optional
    # changer l'ordre dans optional selon ses besoins en sortie
    foreach (@optional) {
      if ($pgn->{'gamedescr'}->{$_}) {
        my $text = $pgn->{'gamedescr'}->{$_};
        print "[$_ \"$text\"]\n";
      }
    }
    # impression des champs non-obligatoires restant, ordre aléatoire des clés
    foreach (keys %{$pgn->{'gamedescr'}}) {
      unless ($_ ~~ @mandatory or $_ ~~ @optional or $_ eq 'Game') {
        my $text = $pgn->{'gamedescr'}->{$_};
        print "[$_ \"$text\"]\n";
      }
    }
    # impression du champ Game
    print "\n*\n\n";
  }
}
 
 
process_file('partie.pgn');