Bonjour,
J'ai un fichier que je parcoure avec une boucle while, et à chaque passage je crée un tableau associatif que je stock dans un tableau, mais quand j'essaye de parcourir ce dernier , j'arrive pas à récupérer les éléments des tableau associatifs.
voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict;
open (READ1, "eq_assoc.csv") || die ("Error opening file \n");
my (@array_gem,%array_assoc,%st);
while (<READ1>) {
 
my @array1 = split(/;/, $_);
my @array2 = split(/-/,$array1[1]);
$array_assoc{'ID_EQ'} = $array2[0];
$array_assoc{'ID_IOS'} = $array2[1];
$array_assoc{'ID_TC'} = $array1[0];
 push @array_gem, [ %array_assoc ]; 
 
 }
    foreach my $element (@array_gem)
{
    my %tab =$element;
	 foreach   my $v(values %tab){
		print $v,"\n";
	 }
}
Je suis novice en perl, et je ne vois pas vraiment ou est le problème.
Merci