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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
my %Result;
while (%Result = %{$MysqRes->fetchrow_hashref()} ) {
    ...
}
Mais hélas cela ne marche pas...
C'est bête hein ?