Discussion :

[Peanut]

Bonjour,

débutant en Perl, j'ai un soucis d'accès aux données d'un tableau à plusieurs dimensions :
j'ai un tableau à 2 colonnes rempli et je voudrais boucler sur les éléments de la 2e colonne d'une ligne donnée.
Exemple simplifié :

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
my @tab;
$tab[0][0]='a';
$tab[0][1]='b';
$tab[0][2]='c';
$tab[1][0]='d';
$tab[1][1]='e';
$tab[1][2]='f';
$tab[2][1]='g';
...
 
foreach my $data (@tab[1] ???)
{
   # $data prendra les valeurs d, e, f
   traitement($data); 
}

Mais je ne sais pas quelle est la syntaxe du foreach...

[Jasmine80]

Peut-être qu'avec des for?
Mais il y a probablement mieux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
my $ref_tab = \@tab;
 
for (my $a=0; $a<2; $a++)
{
      for (my $b=0; $b<3; $b++)
      {
 
                print $a."\t".$b."\t".$ref_tab->[$a]->[$b]."\n";
      }
}

Peut-être avec la fonction map?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

map { print $ref_tab->[$_]->[$_]} $ref_tab;

Jasmine,

[Jedai]

Ton tableau m'a l'air d'avoir plus de deux colonnes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$tab[2][1]='g';

??

Pour itérer sur la deuxième colonne, il suffit de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
foreach my $data ( @{$tab[1]} ) {
   # $data prendra les valeurs d, e, f
   traitement($data); 
}

En effet, $tab[1] est une référence vers le tableau contenant la deuxième colonne, il suffit de la déréférencer avec @{ }.

--
Jedaï

[Peanut]

Heu oui, il y a 3 colonnes, effectivement.
Je vais essayer vos solutions, la syntaxe Perl est un peu nébuleuse pour moi...

[Peanut]

Ca marche avec la solution de Jedai.
Merci à vous 2.