1. $url = 'chart.apis.google.com/chart?chs=700x300&cht=lxy&chd=t:';
2. for ($k=1;$k<11;$k++) {
3. print "iteration premiere boucle for : rang $k\n";
4. for ($i=1;$i=$rangmax;$i++) {
5.  print "iteration seconde boucle for : rang $i\n";
6.  print "avec une valeur de rangmax : $rangmax\n";
7.  $url = $url."$i,";
8.  print "url vaut $url\n";
9. }
10. #autres instructions .. #
11. }

$url = 'chart.apis.google.com/chart?chs=700x300&cht=lxy&chd=t:';
for ($k=1;$k<11;$k++) {
print "iteration premiere boucle for : rang $k\n";
 $url = $url.(join (1..$rangmax) , ',');
 print "url vaut $url\n";
 #autres instructions .. #
}

1. #!/usr/bin/perl
2. ##### L'objectif de se programme est d'utilisé l'api charts (graphiques) de google pour créer une courbe décrivant l'évolution du "stack" de chaque joueur dans un tournoi sit&go Everest poker, et cela à partir d'un historique en format texte #####
3. ##### Le programme va lire ce fichier, en extraire le nom de chaque joueur, puis les valeurs de stack de chacun. le tout sera restitué sous une url directement utilisable pour visualiser le graphique (enfin, c'est le but ...) #####
5. ##### Determiner le nom des joueurs #####
6. # ouvre  le fichier d'historique d'everest sous le "nom " (descripteur de fichier) de FILE
7. open (FILE, 'history.txt') || die "Ouverture du fichier history.txt impossible\n";
8. # démarre un compteur pour éviter une valeur nulle lier au format des historique
9. $compteur = -1;
10. # démarre une boucle pour lire les 12 premières lignes du fichier une à une stocker dans la variable $ligne
11. while (($ligne=<FILE> ) && ($compteur<12)) {
12. # enlève l'eventuel caractère de fin de ligne de la lignes
13. chomp $ligne;
14. # si la ligne fini par ' est au siège [un chiffre entre 0 et 9] avec' , stocke dans un tableau (@joueurs) ce qui se trouvait avant le masque
15. if ($ligne =~ /(.*) est au siège [0-9] avec/) {$joueurs[$compteur] = $1;}
16. # fait avancer le compteur pour que le prochain nom de joueur ($1)  soit stocker dans la prochaine case du tableau
17. $compteur++;
18. }
19. # initialisation du compteur de "rangmax"
20. $rangmax = 0;
21. ##### Construction du tableau %table #####
22. # parcourt le fichier dans son intégralité 1 fois par joueur.  la variable de la boucle for ($i) servira de compteur pour définir le joueur que l'on "suit"
23. for ($i=1;$i<11;$i++) {
24. # ouvre de nouveau l'historique (doit être ouvert à chaque itération pour être de nouveau positionné au début du fichier )
25. open (FILE, 'history.txt') || die "Ouverture du fichier history.txt impossible\n";
26. # initialisation du compteur de "rang"
27. $rang = 0;
28. # démarre une boucle pour lire l'intégralité du fichier ligne par ligne
29. while ($ligne=<FILE> ) {
30.  chomp $ligne;
31. # démarre un compteur pour repérer le début d'une nouvelle main, et ainsi définir la variable de "temps" du graphique ( : cette valeur de stack pour le joueur X est pour la main n°$rang)
32.  if ($ligne =~ /Commencer une partie [\d*]./) {$rang++}
33. # stocke la valeur du "stack" du joueur dans la variable perl $1 (comme tout à l'heure, ce qui est entre parenthèse est stocké)
34.  if ($ligne =~ /$joueurs[$i] est au siège [0-9] avec (.*)./) {
35. # stocke la valeur dans dans une variable "manipulable"
36.   $var = $1;
37. # supprime un éventuel retour chariot
38.   chomp $var;
39. # supprime un espace dans le nombre (ie : '1 000' => '1000')
40.   $var =~ s/\s//;
41. # le système de charts de google ne permet pas d'utiliser une amplitude de valeur supérieur à 100 => divise par 100 le stack du joueur, conserve seulement la valeur entière
42.   $var =int($var/100);
43. # ajoute la valeur au tableau contenant toutes les informations à extraire.
44.   $table[$rang][$joueurs[$i]] = $var;
45. # détermine le rang le plus élevé (le nombre total de main joué)
46.   if ($rangmax < $rang) {$rangmax = $rang}
47.  }
48. }
49. # c'est la fin de la "première" itération de la boucle for. $i va changer de valeur. la regex trouvera alors les stacks du joueur suivants dans le tableau @joueurs, et inscriras de nouvelles valeurs dans le tableau @table
50. }
51. # maintenant, c'est la prise de tête pour générer l'url valide avec toutes ces informations.
52. $url = 'http://chart.apis.google.com/chart?chs=700x300&cht=lxy&chd=t:';
53. for ($k=1;$k<11;$k++) {
54. print "iteration premiere boucle for : rang $k\n";
55. for ($i=1;$i<=$rangmax;$i++) {
56.  print "iteration seconde boucle for : rang $i\n";
57.  print "avec une valeur de rangmax : $rangmax\n";
58.  $url = $url."$i,";
59.  print "url vaut $url\n";
60.  sleep (1);
61. }
62. print "après boucle pour les rangs, url vaut $url\n";
63. chop $url;
64. $url = $url.'|';
65. for ($i=1;$i<=$rangmax;$i++) {
66.  if ($table[$joueurs[$k]][$i] eq undef) {$url = $url."0,";}
67.  else {$url = $url."$table[$joueurs[$k]][$i],";}
68. }
69. print "après boucle pour les valeurs, url vaut $url\n";
70. chop $url;
71. $url = $url.'|';
73. }
74. chop $url;
75. print "après traitement, url vaut $url\n";
76. open (DEBUG, '>>debug.txt') || die "Ouverture du fichier debug.txt impossible\n";
77. print DEBUG $url;

open (FILE, 'history.txt') || die "Ouverture du fichier history.txt impossible\n";
my %players;
my $currentPlayer;
my $maxStack = 0;
while(<FILE> ){
  next if $_ !~ /(.*) est au siège [0-9] avec/;
  $currentPlayer = $1;
  $players{$currentPlayer} = [] if ! defined $players{$currentPlayer};
  if ($_ =~ /Commencer une partie \d*\./ && $_ =~ /$joueurs[$i] est au siège [0-9] avec (.*?)\./) {
    my $stack =  $1 ;
    $stack =~ s/\s//g;
    push @{$players{$currentPlayer}}, $stack;
    $maxStack = $stack if $stack > $maxStack;
  }
}
 
foreach(keys %players){
  map { $_ = sprintf("%d", ($_ / $maxStack)*100) } @{$players{$_}};
}

#!/usr/bin/perl
 
open (FILE, 'history.txt') || die "Ouverture du fichier history.txt impossible\n";
my %players;
my $currentPlayer;
my $stack;
my $maxStack = 0;
while(<FILE> ){
  next if $_ !~ /(.*) est au siège [0-9] avec (.*?)\./;
  $currentPlayer = $1;
  $stack = $2;
  $players{$currentPlayer} = [] if ! defined $players{$currentPlayer};
  $stack =~ s/\s//g;
  push @{$players{$currentPlayer}}, $stack;
  $maxStack = $stack if $stack > $maxStack;
}
foreach(keys %players){
  map { $_ = sprintf("%d", ($_ / $maxStack)*100) } @{$players{$_}};
}