Bonjour,
 
j'ai un nouveau problème  .
 
Je me demande s'il est possible de mettre en "lien" deux fichiers (ou tableaux) et faire des calculs dessus?
 
Explication:
Mon premier fichier 'france1_calendrier_csv.txt' est de la forme:

 
Et mon deuxième fichier 'france1_forces_global_M1.txt' est de la forme:

 
 
Alors le but (c'est un peu compliqué mais je vais essayé d'être clair) c'est de faire des calculs pour chaque matchs du calendrier(plus particulièrement pour 2 journées, ici en l'occurence pour les journées 6 et 7 qui sont les premiers champs du fichier 'france1_calendrier_csv.txt' et une fois que la journée 6 est passé il faudrait que mon script fasse les calculs pour les journées 7 et 8). Les calculs sont en fait de simples multiplications mais sur des champs particuliers suivant qu'une équipe joue à domicile ou à l'extérieur, par exemple pour le premier match de la 6ème journée Montpellier - St Etienne il y a deux calculs à réaliser. Le 1er est $coeff1=0.12*0.25=0.03 et le deuxième est $coeff2=0.3*0.58=0.174, en fait pour ces deux calculs il faut que j'arrive à récupérer sur la ligne de Montpellier les valeurs du 2ème et 4ème champ(0.12 et 0.3) et sur la ligne de St Etienne les valeurs du 3ème et 5ème champ(0.25 et 0.58). Pour le match suivant Bastia - Paris SG il faudrait donc $coeff1=0.26*0.12=0.0312 et $coeff2=0.61*0.28=0.1708 ....
 
J'ai essayé avec deux tableaux et des boucles for mais sans succès, c'est vite le bordel dans les boucles et ça me sort n'importe quoi ! Je me suis dit que peut-être travailler avec des Hashs serait la solution mais je n'arrive pas à construire un hash issu de ces deux fichiers qui aurait la structure suivante ->
 
%matchs = { 'Montpellier - St Etienne'  => { 'Montpellier' => '0.03',  
                                                                      'St Etienne' => '0.174' },  
                      'Bastia - Paris SG' => { 'Bastia' => '0.0312',  
                                                          'PSG' => '0.1708' },  
                      'Brest - Valenciennes' => { 'Brest' => '0.1404',  
                                                                'Valenciennes' => '0.0574' },  
.........
.........
}  
 
Du coup avec une structure comme celle-ci j'aurais accès très facilement aux matchs, aux équipes et aux valeurs dont j'ai besoin pour faire des calculs de probabilités, là se serait le top.
 
Si vous avez une piste sur comment on peut manipuler deux fichiers différents je suis preneur .... merci.
 
A+

Je vais finir par penser que tu bosses pour un site de paris en ligne
Je vais bouffer la, je regarde ça cet après midi.
A+,

Voila ce qui devrait te convenir:

#!/usr/local/bin/perl
use strict;
use warnings;
use autodie;
 
use Data::Dumper;
 
my %coefs;
open(my $IN, 'france1_forces_global_M1.txt');
while (<$IN> ) {
  chomp;
  my @fields = split /;/;
  next if (@fields < 5);
  map {s/^\s*|\s*$//g} @fields;
  $coefs{lc($fields[0])} = [@fields[1..4]];
}
close($IN);
 
my %matches;
use constant START_WEEK => 6;
open($IN, 'france1_calendrier_csv.txt');
while (<$IN> ) {
  chomp;
  my @fields = split /;/;
  next if (@fields < 5);
  map {s/^\s*|\s*$//g;} @fields;
  next if ($fields[0] < START_WEEK or $fields[0] > (1 + START_WEEK));
  $matches{"$fields[3] - $fields[4]"} = {
                     $fields[3] => $coefs{lc($fields[3])}->[0] * $coefs{lc($fields[4])}->[1],
                     $fields[4] => $coefs{lc($fields[3])}->[2] * $coefs{lc($fields[4])}->[3],};
}
close($IN);
 
print Dumper(%matches);

C'est un dump de la structure pour te montrer qu'elle contient ce que tu veux, à toi de l'utiliser comme il te convient.
A+,

QQues explications sur le code:
$coefs{lc($fields[0])} = [@fields[1..4]];
coefs est un hash qui va avoir comme clé le nom de la ville et comme valeur un tableau contenant les 4 coeffs.
$coeffs{'sochaux'}->[2] est donc le 3e coeff pour Sochaux.
Noter que je passe les noms en minuscules dans la clé, avec lc, afin qu'on n'ait pas de pb avec le format des données de l'autre fichier (on est jamais sur que ce soit totalement identique).
 
$matches{"$fields[3] - $fields[4]"} = {
                     $fields[3] => $coefs{lc($fields[3])}->[0] * $coefs{lc($fields[4])}->[1],
                     $fields[4] => $coefs{lc($fields[3])}->[2] * $coefs{lc($fields[4])}->[3]};
 
matches est un hash qui a pour clé les noms des matches, construit à partir du des noms des deux villes/clubs, et pour valeur un autre hash, qui a pour clés les noms des des deux villes, et valeurs associées les valeurs calculées à partir de ce qui a été stocké dans %coeffs.
 
A+,

 Super, ça marche nickel ! En quelques lignes t'as résolu le truc, trop fort !!
 
je vais regarder ça de plus près pour retirer les bonnes infos.
 
Par contre dans la ligne -> use constant START_WEEK => 6;
 
est-ce qu'il est possible d'utiliser une variable préalablement calculée à la place de 6, car cette valeur est amenée à être modifiée chaque fin de journée ? par exemple si je met $nb_journee qui vaut 7, ça marchera ?
 
Merci à toi

Tu peux tout à fait remplacer par une variable.
 

#!/usr/local/bin/perl
use strict;
use warnings;
use autodie;
 
use Data::Dumper;
 
my $week_number = 6;
 
my %coefs;
open(my $IN, 'france1_forces_global_M1.txt');
while (<$IN> ) {
  chomp;
  my @fields = split /;/;
  next if @fields < 5;
  map {s/^\s*|\s*$//g} @fields;
  $coefs{lc($fields[0])} = [@fields[1..4]];
}
close($IN);
 
my %matches;
open($IN, 'france1_calendrier_csv.txt');
while (<$IN> ) {
  chomp;
  my @fields = split /;/;
  next if @fields < 5;
  map {s/^\s*|\s*$//g;} @fields;
  next if $fields[0] < $week_number or $fields[0] > (1 + $week_number);
  my ($hometeam, $visitors) = @fields[3,4];
  next unless exists $coefs{lc($hometeam)} and exists $coefs{lc($visitors)};
  $matches{"$hometeam - $visitors"} = {
                     $hometeam => $coefs{lc($hometeam)}->[0] * $coefs{lc($visitors)}->[1],
                     $visitors => $coefs{lc($hometeam)}->[2] * $coefs{lc($visitors)}->[3]};
}
close($IN);
 
print Dumper(%matches);

la ligne  
next unless exists $coefs{lc($hometeam)} and exists $coefs{lc($visitors)};
blinde le code au cas ou il y aurait un nom différent entre les deux fichiers.
 
A+,

Merci pour les explications Gilou, juste une dernière question sur le code, que veut dire la ligne  -> next if @fields<5;
@fields est bien un tableau, comment peut-on le comparer à un nombre? et quelle est la signification de 5 ?

Dans ce contexte, @fields représente le nombre d'élements dans le tableau.
 
C'est donc "ne pas passer dans la boucle si il y a moins de 5 éléments dans le tableau @fields, et traiter la ligne suivante"
 
Normalement, on utilise $fields pour compter le nombre d'éléments dans le tableau, la le cast est implicite vu qu'il compare le tableau à un scalaire.

Merci ccp6128 pour les précisions.

Salut,
 
alors le script marche super bien, par contre j'essaie de l'utiliser en l'incluant dans une fonction. Comme je veux que tout soit automatisé (et donc que je n'ai pas à écrire à chaque fois le nom des équipes) j'ai mis dans un tableau @versus les champs de mon fichier "france1_calendrier_csv_temp.txt" pour pouvoir utiliser dynamiquement les noms des équipes qui jouent l'une contre l'autre. Mais quand j'essaie d'atteindre la valeur $matches{'Montpellier - St Etienne'}{'Montpellier'} calculée dans le hash %matches
avec la syntaxe suivante $matches{'$versus[$l][3] - $versus[$l][4]'}{'$versus[$l][3]'} dans une boucle for($l=0; $l<=$nb_matchs; $l++) j'ai une erreur du type "Use of uninitialized value in concatenation (.) or string".
 
Est-ce qu'il est possible d'utiliser des variables comme je l'ai fait pour récupérer la valeur de la clef d'un hash ? J'ai rien vu à ce sujet sur le net ... j'espère que c'est possible sinon je suis dans la mouise .
 
Et autre question est-ce qu'il est possible de construire un hash de hash avec des boucles for ?
 
A+

1) Faut pas mettre de simples quotes dans $matches{'$versus[$l][3] - $versus[$l][4]'}{'$versus[$l][3]'} si tu veux que les variables $xxx soient interprétées, mais des doubles comme dans mon code.
2) tu veux dire utiliser une variable comme clé pour récupérer le value d'un hash, non? c'est ce que je fais dans mon code
3) pourquoi pas.
A+,

1) j'avais essayé avec les doubles quotes mais sans succès, $matches{"$versus[0][3] - $versus[0][4]"}{"$versus[0][3]"}; me renvoie  la même erreur "Use of uninitialized value in print at essai2.pl line 132." alors qu'un print de $versus[0][3] ou de $versus[0][4] fonctionne parfaitement. Je comprend pas où est l'erreur pour le moment.
 
2) oui c'est exactement ça. ça marche très bien dans ton code mais pour moi $matches{"$versus[0][3] - $versus[0][4]"}{"$versus[0][3]"} n'est pas interprété et encore moins $matches{"$versus[$l][3] - $versus[$l][4]"}{"$versus[$l][3]"} !
 
3) je vais essayé alors ... si bien sûr j'arrive déjà à faire sortir une valeur à $matches{"$versus[$l][3] - $versus[$l][4]"}{"$versus[$l][3]"}
 
 
.... bon ben je me remet à nouveau à la recherche de ce qui cloche, je vais bien finir par trouver !
 
a+

Désolé, pour le 1) et 2) c'est bon, en construisant @versus j'avais enlevé des espaces sur les lignes du fichier csv et du coup St Etienne était devenu StEtienne et ça ne matchait plus avec les clés du hash .... c'était devant mon pif depuis cette après-midi et j'avais pas vu ! Une belle connerie de débutant !
Me reste plus qu'à essayer de construire ce hash de hash avec des boucles .... vaste programme.
Gilou, merci pour l'info des doubles quotes, ça m'a bien aiguillé dans ma recherche
a+

 
Je n'étais pas la de la journée.
A+,