Bonjour,
 
voilà un problème qui pour moi est complexe, j'arrive à résoudre une partie mais le reste j'ai du mal.
 
Je m'explique:
 
J'ai un fichier "finlande1_oa_derniers_matchs.txt"(dans le spoiler) que j'ai "spliter" dans le tableau @TdT1. Ce que je voudrais faire c'est récupérer la somme des deuxièmes champs des n premiers matchs de chaque équipes. Par exemple pour n=5, je voudrais que mon script me construise automatiquement le tableau @goals_for_home =(12, 4, 8, 9, 10, 1, 3, 12, 8, 7, 19, 7), où 12 est la somme des 2ème champs pour les 5 premières lignes où apparait HJK, ensuite 4 est la somme des 2ème champs pour les 5 premières lignes où apparait Haka .... etc. J'aimerais également que @goals_for_home soit contruit si jamais le fichier "finlande1_oa_derniers_matchs.txt"est de la forme (en fait j'aimerais que au plus 5 matchs soient pris en compte) suivante:
 
HJK ;2;0;JJK Jyv‰skyl‰ ;2012-08-18
HJK ;3;3;VPS  ;2012-08-04
HJK ;1;0;Haka ;2012-07-21
Haka ;0;3;Lahti ;2012-08-25
Haka ;0;2;Inter Turku ;2012-08-05
Honka ;1;2;VPS  ;2012-08-27
Honka ;2;2;Haka ;2012-08-12
Honka ;1;0;HJK ;2012-07-28
Inter Turku ;2;0;Lahti ;2012-05-30
Inter Turku ;2;0;VPS  ;2012-09-03
JJK Jyv‰skyl‰ ;5;0;Haka ;2012-09-02
JJK Jyv‰skyl‰ ;0;3;MyPa ;2012-08-11
Jaro ;0;3;MyPa ;2012-09-02
Jaro ;0;1;TPS ;2012-08-19
Jaro ;0;3;JJK Jyv‰skyl‰ ;2012-08-05
KuPS ;2;3;JJK Jyv‰skyl‰ ;2012-08-26
KuPS ;1;0;Lahti ;2012-08-18
KuPS ;0;2;Honka ;2012-08-05
Lahti ;3;2;Honka ;2012-08-31
Lahti ;3;0;HJK ;2012-08-12
Mariehamn ;2;0;KuPS ;2012-09-02
Mariehamn ;2;0;Jaro ;2012-08-11
Mariehamn ;3;3;JJK Jyv‰skyl‰ ;2012-07-22
MyPa ;1;1;TPS ;2012-08-26
MyPa ;2;1;Mariehamn ;2012-08-20
TPS ;9;2;Haka ;2012-08-22
TPS ;1;2;HJK ;2012-09-02
VPS ;2;1;Haka ;2012-08-19
VPS ;0;1;KuPS ;2012-08-12
VPS ;2;0;MyPa ;2012-07-29
 
 
Fichier "finlande1_oa_derniers_matchs.txt"

 
Voilà la partie de mon script essai.pl dans lequel j'utilise le tableau des équipes dans l'ordre alphabétique @OA = (HJK, Haka, Honka, Inter Turku, JJK Jyv‰skyl‰, Jaro, Kups, Lathi, Mariehamn, MyPa, TPS, VPS) pour comparaison et surtout pour classer toujours les équipes dans l'ordre alphabétique. LA variable $nb_eq est calculée plus haut dans mon programme, elle est ici égale à 12, c'est le nombre d'équipes du championnat. Quand je fais tourner mon programme ça me donne bien la somme voulue dans @goals_for_home sauf pour le dernier calcul où j'ai le message "Use of uninitialized value in concatenation (.) or string at essai.pl line 106", j'ai beau cherché je ne vois absolument pas pourquoi il ne veut pas calculer $goals_for_home[11] !?  
Egalement pour le deuxième cas ou il y a moins de 5 matchs joués mon script ne fonctionne pas du tout et pareil en essayant de faire le chemin dans les boucles for je ne comprend pas qu'il me calcule rien, j'ai encore le message "Use of uninitialized value in concatenation (.) or string at essai.pl line 106".
Si un cerveau plus performant que le mien traine par là je veux bien qu'il m'aiguille.
Merci.
 
 

Plutôt que créer ton tableau @goals_for_home, je construis directement ce qu'il faut dans un hash à la lecture du fichier.
La clé du hash est le nom de la ville, et il a deux champs, un ou on accumule le nb de goals marqués, et l'autre ou on compte le nb de matches comptés jusque la.
Noter que ça marche parce que les champs numériques de ce type de hash sont initialisés à 0 par défaut (c'est fait exprès en Perl pour pouvoir faire ce genre de boucles)

#!/usr/local/bin/perl
use strict;
use warnings;
 
my %matches;
use constant MAX_MATCHES => 5;
open(my $IN, 'finlande1_oa_derniers_matchs.txt' ) or die ("Erreur ouverture fichier\n" );
while (<$IN> ) {
  chomp;
  my @fields = split /;/;
  map {s/^\s*|\s*$//g} @fields;
  $matches{$fields[0]}{'goals_for_home'} += $fields[1] if ($matches{$fields[0]}{'counted'}++ < MAX_MATCHES);
}
close($IN);
 
foreach my $city (sort keys %matches) {
     print "$city: $matches{$city}{'goals_for_home'}\n";
}

A+,

Et ben merci encore Gilou ! ça marche impeccablement !
Par contre il faut maintenant que je change ma façon de faire pour la suite de mon projet car les Hashs je connais pas trop.
 
Pour que je comprenne bien, en fait le Hash %matches construit ressemble à ça ?
 
%matches =('HJK'        => '12', 'Haka'     => '4', 'Honka'    => '8', 'Inter Turku'      => '9', 'JJK Jyv‰skyl‰' => '10', 'Jaro'        => '1', 'KuPS'     => '3', 'Lathi'    => '12', 'Mariehamn'      => '8', 'MyPa' => '7', 'TPS'      => '19', 'VPS' => '7');
 
 
dans la suite de mon script je vais avoir besoin des valeurs trouvées 12, 4, 8, ..... ,7 . J'ai essayé d'accéder à la valeur de la clef HJK avec $matches{HJK} mais sans succès, le terminal me retourne HASH(0x10081d108) alors que j'aurais voulu 12.
Comment accède-t-on à la valeur 12 ?
 
Merci pour tes lumières Gilou.
A+

%matches a la structure suivante:  
{ 'Jaro'  => { 'goals_for_home' => '1',  
                   'counted' => '12' },
   'Inter Turku' => { 'goals_for_home' => '9',  
                            'counted' => '13' },
....
   'TPS' => { 'goals_for_home' => '19',  
                  'counted' => '14' },
}
 
Il fallait faire $matches{'HJK'}{'goals_for_home'} pour accéder a la valeur 12, c'était visible dans ma boucle d'impression finale d'ailleurs.
 
A+,

C'est vraiment un des trucs de base à connaitre en Perl, car c'est super-pratique, en particulier sous la forme que j'ai utilisé, le hash de hashes.
A+,

Merci pour les explications Gilou, je comprend un peu mieux le code que tu as posté.
 
A+

Oui j'étais tombé sur un chapitre sur les tableaux de Hachages(je crois que c'était sur PERLDSC la documentation de Perl), à la première lecture j'avais eu beaucoup de mal et hônnetement j'avais pas compris grand chose, peut-être que maintenant avec "un peu" plus d'expérience je comprendrais un peu plus, je pense que je vais relire ce chapitre. Il est vrai que pour l'instant dans mon projet je n'ai utilisé que les tableaux simples ou multidimensionnels mais je suis certain que j'aurais pu utilisé les tableaux de hachages pour simplifié et optimisé mon code. Merci pour le conseil je vais me pencher dessus car comme les expressions régulières ça à l'air également puissant et pratique.
 
A+

Si tu lis l'anglais, tu peux lire le livre en pdf qui se trouve ici: http://onyxneon.com/books/modern_perl/  qui est très bien.
A+,

OK, je vais regarder ça avec attention et ça me fera une bonne leçon technique d'Anglais
Merci à toi.