Référence en retour de fonction, à transformer en hash

Salut à tous,
Je me remet au PERL après 3 ans d'abstinance, et je cogne sur une broutille :

Code:

---

1 2 3 4 5 6

my %Result; my $Result; while ($Result = $MysqRes->fetchrow_hashref()) { %Result = %$Result; }

---

Si j'ai bien suivi, $Result contient la référence d'un hash, c'est dailleurs pour ca que %Result contient mon hash tant attendu.

Mais bon dans cette histoire je suis obligé de déclarer un $Result pour ensuite l'abandonner. Je veux pas pinailler mais il doit bien y avoir une manière de faire plus court
Après avoir potassé la doc, j'ai essayé ça :

Code:

---

1 2 3 4 5

my %Result; while (%Result = %{$MysqRes->fetchrow_hashref()} ) { ... }

---

Mais hélas cela ne marche pas... :(
C'est bête hein ?

Salut,

Je ne suis pas certain de comprendre ce que tu souhaites faire mais si tu veux que ta variable scalaire contienne une référence sur ton hachage, l'affectation devrait ressembler à ceci :

Code:

---

1 2	my %Result; my $Result = \%Result;

---

En espérant que cela puisse t'aider... :)

Tu n'est pas obligé de recopier la cible de la référence dans un hash, tu peux utiliser la référence directement.

Ex.

Code:

---

$$Result{"clef"} = "valeur";

---

Qui s'écrit aussi (plus clair au début)

Code:

---

${$Result}{"clef"} = "valeur";

---

Ca s'écrit surtout :

Code:

---

1 2	$Result->{"clef"} = "valeur";

---

Ce qui est la plus claire des écritures à mon goût (mais les goûts et les couleurs...).

Par ailleurs, que veux tu dire par "ça ne marche pas" ? Qu'est-ce qui cloche ?

--
Jedaï

Oui bon je sais c'est du pinaillage mais...
Prenons ce code (plus clair)

Code:

---

1 2 3 4 5 6

my %HashResult; my $RefHashResult; while ($RefHashResult = $MysqRes->fetchrow_hashref()) { %HashResult = %$RefHashResult; }

---

Ce qui me gène c'est de devoir déclarer

Code:

---

1 2	my %HashResult; my $RefHashResult;

---

Tout ça pour ensuite faire

Code:

---

%HashResult = %$RefHashResult

---

à chaque tour de boucle...
j'ai bien compris qu'on peut se servir de $RefHashResult->{key} mais je prèfère le % :P )

Je me suis dis : ca doit être possible de mettre la bonne affectation DANS la condition du while
Sans déclarer une variable $HashRefResult

Code:

---

1 2 3 4 5 6

my %HashResult; while (%HashResult = %{$MysqRes->fetchrow_hashref()} ) { #et rien ici ... }

---

Ce code ne fonctionne pas chez moi :(