Discussion :

[rodriguez_du35]

Bonjour bonjour, voila j'ai un petit soucis pour le parcours d'un tableau.
Ce que je veux faire est assez simple, mais je n'y parviens pas
j'ai un hash qui comprend un tableau, et je veux récupérer ce que contient ce tableau à l'aide d'un foreach; en gros, voila ce que j'ai comme code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#! usr/bin/perl
 
use strict; 
my @message = ('reject','distribute','arc_delete','arc_download');
 
my %action_type = ('message' => @message,
		   );
my @tab = $action_type{'message'};
 
foreach my $plop(@tab) {
    printf("plop = $plop \n");
}

Mon soucis est qu'il n'y a que 'reject' qui s'affiche, soit uniquement le premier champs de mon tableau, et je ne comprend pas pourquoi. Je pense que cela pourrait venir d'un probleme de référencement, mais je débute, donc je ne vois pas d'ou cela peut venir
Si quelqu'un avait une idée, ca m'aiderait bôcoup !

Merci d'avance !

[elvivo]

J'ai corrige.
En fait tu devrais travailler uniquement avec des reference et dereferencer seulement quand tu en as vraiment besoin. Ca simplifie grandement la vie, surtout quand tu travaille sur des structures de donnees complexes.

Ton code corrige devient:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#! usr/bin/perl
 
use strict ;
my @message = ('reject','distribute','arc_delete','arc_download');
 
my %action_type = ('message' => \@message) ;
 
my @tab = @{$action_type{'message'}};
 
foreach my $plop (@message) {
    print("plop = $plop \n");
}

Maintenant la version avec des references uniquement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#! usr/bin/perl
 
use strict ;
my $message = ['reject','distribute','arc_delete','arc_download'] ;
 
my $action_type = {'message' => $message} ;
 
my $tab = $action_type->{'message'};
 
foreach my $plop (@{$tab}) 
{
    print("plop = $plop \n");
}

Le seul piege a eviter concerne la copie du contenu d'une reference ailleurs.
Si tu fais:

Code :

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

1
2
 
$ref1 = $ref2 ;

Tu crees juste une nouvelle reference sur la meme zone memoire.

Il faut penser a faire:

Code :

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

1
2
3
 
$ref1 = {%{$ref2}} ; # pour un hash
$ref1 = [@{$ref2}] ; # pour un tableau

[djibril]

Regarde la FAQ, j'ai rédigé un petit cours sur les références, ça t'aidera à comprendre les références.

[rodriguez_du35]

merci beaucoup, je teste ca des lundi (pont oblige ) et je vous fais un gros bisou si ca fonctionne

[rodriguez_du35]

Bon et bien je n'ai qu'une chose a dire: Merci
Le "probleme"est réglé.