dereferencement de hash

Bonjour,

j'ai un hash composé de clé (scalaire), et ayant comme valeur des references de tableau.

je m'emmele les pinceaux pour dereferencer juste une valeur d'apres sa clé.
Code:

1 2 3 4 5 6 7 8 @liste1= ("bleu" , "blanc" , "rouge"); $ref1=\@liste1; @liste2 = ("vert","blanc","rouge"); $ref2=\@liste2; %tab = ("france" , $ref1, "italie",$ref2 );
comment déreferencer "vert" de la clé Italie?

$tab(italie)->[0] ???

merci encore

Code:

1
2
3
print $tab{"italie"}->[0];
ou
print $tab{"italie"}[0];

:lol:

merci djibril

une question toute bete pour eviter de creer un topic la dessus,

ya t'il des risques d'erreur a referencer avec comme OS win xp?

je dis ca, car ca me reference toujours sur la meme adresse

Code:

1
2
3
4
5
6
7
8
9
10
open (FILE, "fichier.txt"); #listing separé par des tabulations
 
while ($f =<FILE>) {
  @b = split /\t/,$f;    #découpage par tabulation
 
  $ref = \@b;    #ca me pose un probleme ici
  print "$ref";      # ca affiche toujours la meme adresse de reference
                     #alors que logiquement elle devrait etre differente
                     # a chaque tour de boucle
}

Heu, question : d'où vient ton $h ???

M'est avis que c'est pour ça que tu affiches toujours la même valeur :mouarf:

Et pour répondre à ta question, le déréférencement fonctionne sous XP

Edit : le saloupiot a corrigé son erreur :lol:

:mrgreen:

autrement le programme ecrit de cette façon est il juste?

car j'ai l'intention ensuite de "pushé" les references dans un tableau, mais si elle sont toutes les meme ca me pose probleme

et voila le "h"

push(@h,$ref);

Je viens d'adapter rapidos ton code :

Code:

1
2
3
4
5
$toto = "1  2   3   4";    # tabulation entre les valeurs
@b = split /\t/,$toto;
 
$ref = \@b;
print "$ref";    # m'affiche ARRAY(0x1ab2790)

C'est bien ce que tu voulais ?

Citation:

Envoyé par STEPH69000

push(@h,$ref);

Essaie ceci plutôt : push(@h, @$ref);

Je crois que là, tu devrais avoir ce que tu cherches ;)

je vais adapter ceci a mon programme et je vous donne des news

merci de votre aide

Citation:

Envoyé par STEPH69000

merci djibril

une question toute bete pour eviter de creer un topic la dessus,

ya t'il des risques d'erreur a referencer avec comme OS win xp?

je dis ca, car ca me reference toujours sur la meme adresse

Code:

1
2
3
4
5
6
7
8
9
10
open (FILE, "fichier.txt"); #listing separé par des tabulations
 
while ($f =<FILE>) {
  @b = split /\t/,$f;    #découpage par tabulation
 
  $ref = \@b;    #ca me pose un probleme ici
  print "$ref";      # ca affiche toujours la meme adresse de reference
                     #alors que logiquement elle devrait etre differente
                     # a chaque tour de boucle
}

Tu fais ici une erreur courante, que tu aurais évité sans t'en aperçevoir si tu avais utilisé "use strict;" (je te recommande plus que fortement de le faire !!!!!). En fait dans tout ton programme il n'y a qu'une seule variable globale @b (puisque tu la déclare sans my()), pas une par boucle. Aussi quand tu prend sa référence, c'est toujours la même (c'est toujours le même tableau, seul son contenu change)... Logique !

Pour éviter ça, il y a plusieurs solutions :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict; use  warnings;
 
open my $listing_in, "fichier.txt" #listing separé par des tabulations
  or die "$!\n";
 
while (my $line =<$listing_in>) {
  my @b = split /\t/,$line;    # maintenant @b est une variable locale, recréé à chaque
                                          # itération de la boucle
 
  my $ref = \@b;    # comme @b est une variable différente à chaque fois,
  print "$ref";   # la référence vers @b est différente à chaque fois.
}

C'est sans doute une bonne solution, mais pas toujours applicable.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict; use  warnings;
 
open my $listing_in, "fichier.txt" #listing separé par des tabulations
  or die "$!\n";
 
# ...
# supposons que tu déclares @b hors de la boucle pour une raison quelconque :
my @b;
 
# ...
 
while (my $line =<$listing_in>) {
  @b = split /\t/,$line;    # maintenant @b est une variable locale mais créée à l'extérieur de 
                                    # la boucle, elle est unique pour toutes ses itérations...
 
  my $ref = [ @b ];    # en utilisant [ ] on reconstruit un nouveau tableau ayant le même
                                    # contenu que @b à ce moment précis, puis on renvoie une référence
                                    # sur ce nouveau tableau.
  print "$ref";   # la référence vers @b est différente à chaque fois.
}

Cette deuxième solution est plus universelle, mais sur des très gros tableaux elle peut-être inenvisageable à cause du coût de la copie.

--
Jedaï

Salut,

pourquoi pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl
 
use strict; use  warnings;
 
open my $listing_in, "fichier.txt" #listing separé par des tabulations
  or die "$!\n";
 
while (<$listing_in>) {
  my $ref = [ split /\t/,$_ ];
  print "$ref";
}

?!

lami20j

merci pour cette petite leçon, j'en ai pris note.

et j'ai réussi à resoudre mon probleme

merci de votre participation