Discussion :

[raoulchatigre]

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 ?

[Yux]

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 :

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

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

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

[vic]

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 :

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

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

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

Code :

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

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

[Jedai]

Ca s'écrit surtout :

Code :

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

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ï

[raoulchatigre]

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

Code :

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

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 :

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

1
2
my %HashResult;
my $RefHashResult;

Tout ça pour ensuite faire

Code :

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

%HashResult = %$RefHashResult

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

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 :

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

1
2
3
4
5
6
 
my %HashResult;
while (%HashResult = %{$MysqRes->fetchrow_hashref()} ) {
    #et rien ici
    ...
}

Ce code ne fonctionne pas chez moi