Discussion :

[mauroyb0]

bonjour,
je me perds un peu dans mes hash et mes références...
Si j'ai un hash définit comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
my %hash=('123'=>
			('a'=>'qwe',
			'b'=>'oeiur',
			'c'=>'njnfjnv'),
		'12234'=>
			('a'=>'cdnsjs',
			'b'=>'nnocdsocn',
			'c'=>'cndslcndc'),
);

puis un référencage de ce hash :

Code :

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

my $ref_hash=\%hash;

je voudrais parcourir les valeurs de cette hash, histoire de les stoquer dans un array déclaré plus haut et fait :

Code :

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

1
2
3
4
5
6
7
for my $key1 (keys(%$ref_hash))
{
	for my $key2 (keys( %{%$ref_hash->{$key1}} ))
	{
	push (@array,${$$ref_hash->{$key1}}{$key2});
	}
}

mais cela pose un problème... Je sais que cela est du à mon référencage et à l'accès au hash via la référence, mais je n'arrive pas a m'en sortir... quelque pourrait- il m'aider???

merci d'avance...

[lami20j]

Salut,

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
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl
#
use warnings;use strict;
 
$"="\n";
my @array;
my %hash=(
        '123'=>    {
                    'a'=>'qwe',
                    'b'=>'oeiur',
                    'c'=>'njnfjnv'
                   },
        '12234'=>  {
                    'a'=>'cdnsjs',
                    'b'=>'nnocdsocn',
                    'c'=>'cndslcndc'
                   },
        );
 
 
my $ref_hash=\%hash;
 
 
for my $k1 ( keys %$ref_hash ){
        for my $k2 ( keys %{$ref_hash->{$k1}} ){
                push @array,${$ref_hash->{$k1}}{$k2};
 
        }
}
 
print "@array\n";

lami20j

[mauroyb0]

merci pour la réponse, mais a quoi saire le :

$"="\n";

?

[djibril]

à rien, je pense qu'il voulais mettre

Code :

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

$,="\n";

pour que ton "@array\n"; genere chaque case à la ligne.
$, => modifie le sortie d'un print qui est par defaud à rien.

Y a pas d'importance de le mettre

[lami20j]

Salut,

à rien, je pense qu'il voulais mettre

Code :

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

$,="\n";

pour que ton "@array\n"; genere chaque case à la ligne.
$, => modifie le sortie d'un print qui est par defaud à rien.

Y a pas d'importance de le mettre

C'était bien pour l'affichage, donc pas besoin comme tu le dit.

Cependant ce n'est pas $, mais c'est bien $" = $LIST_SEPARATOR que j'ai voulu utiliser.

lami20j

[Jedai]

à rien, je pense qu'il voulais mettre

Code :

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

$,="\n";

pour que ton "@array\n"; genere chaque case à la ligne.
$, => modifie le sortie d'un print qui est par defaud à rien.

Y a pas d'importance de le mettre

Pas tout à fait, '$,' modifie le caractère imprimé entre deux paramètres du print (autrement dit $, est imprimé à chaque fois qu'il y a un "," dans ton print) tandis que $" est imprimé entre deux éléments d'un tableau interpolé entre doubles quotes (par défaut c'est un espace.
C'est très pratique dans les petits programmes pour mettre en forme sa sortie, mais c'est sans doute à déconseiller pour les gros programmes, mieux vaut le faire explicitement. Et même si on veut vraiment le faire, il vaut mieux utiliser leur nom complet :
$, = $OUTPUT_FIELD_SEPARATOR
$" = $LIST_SEPARATOR
Et ne le faire que sur une portée préciise (avec local()).

--
Jedaï

[lami20j]

Salut,

Pas tout à fait, '$,' modifie le caractère imprimé entre deux paramètres du print (autrement dit $, est imprimé à chaque fois qu'il y a un "," dans ton print) tandis que $" est imprimé entre deux éléments d'un tableau interpolé entre doubles quotes (par défaut c'est un espace.
C'est très pratique dans les petits programmes pour mettre en forme sa sortie, mais c'est sans doute à déconseiller pour les gros programmes, mieux vaut le faire explicitement. Et même si on veut vraiment le faire, il vaut mieux utiliser leur nom complet :
$, = $OUTPUT_FIELD_SEPARATOR
$" = $LIST_SEPARATOR
Et ne le faire que sur une portée préciise (avec local()).

--
Jedaï

Je suis d'accord avec toi. Je n'ai pas osé de faire la leçon à djibril.

Petit ajout: pour utiliser le nom complet il ne faut pas oublié use English

lami20j

[djibril]

meaculpa, honte à moi même