Discussion :

[STEPH69000]

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 :

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

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

[djibril]

Code :

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

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

[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 :

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

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
}

[Arioch]

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

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

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

Edit : le saloupiot a corrigé son erreur

[STEPH69000]

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);

[Arioch]

Je viens d'adapter rapidos ton code :

Code :

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

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 ?

[Arioch]

push(@h,$ref);

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

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

[Jedai]

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 :

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

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 :

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

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 :

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; 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ï

[lami20j]

Salut,

pourquoi pas

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; 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

[STEPH69000]

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

et j'ai réussi à resoudre mon probleme

merci de votre participation