hash og perl

Det vigtigt at du er klar over at fetchrow_hashref *ikke* giver dig en hash, men derimod en reference til en hash. Det er det man i andre sprog kalder for en pointer.

Med:

while ($dbValues = $result->fetchrow_hashref)

- vil $dbValues altså indeholde pointeren til en hash, og for at få selve hashen, så skal den foranstilles med et %-tegn:

while (($attr,$value)=each(%$dbValues))

Og ligesom du foranstiller med et $-tegn når du vil udskrive et enkelt-element fra en hash, så skal du også bruge et $-tegn i dette tilfælde. Med det $-tegn der allerede er der, bliver det derfor hele 2 $-tegn:

while ($dbValues = $result->fetchrow_hashref)
{
    print $$dbValues{'col1'};  # Virker :^)
}

.oOo.

Man kan selv eftergøre dette i ren perl-kode uden at blande databaser ind:

my %hash;  # Nu har vi en hash.

$hash{"alfa"} = "beta";  # Nu er der nogle værdi-par i hashen.
$hash{"gamma"} = "delta";

print $hash{"alfa"};  # Udskriver "beta".

my $hashRef = \%hash;  # Nu har du en reference til hashen. Det er \-teget som gør dette.

print $$hashRef{"gamma"}  # Udskriver "delta" - læg mærke til de 2 $-tegn.

while (($key, $value) = each($$hashRef))
{
    print $key . ' => ' . $value;  # Udskriver alle par værdi-par.
}

mange tak!
husk at skrive det som svar.

Jeg smider normalt aldrig et svar før at jeg er helt sikker på at den som spørger har fået ordentligt svar på sit spørgsmål... Det kunne jo tænkes at du havde mere du ville spørge om?

... og et svar :^)