HASH dynamisch befüllen

[Frank]

Hallo,
ich habe ein kleines Problem. Bin Perl - Anfänger und hab zu folgendem Thema nichts passendes gefunden.
Ich will ein Hash dynamisch mit Schlüssel und Werten aus der Datenbank erzeugen.

Folgende Code habe ich geschrieben:
Ich vermute mal das ich irgendwas bei der Zuweisung  im Hash falsch mache.

Wär super, wenn mir jemand einen tipp geben könnte. Danke

$zeiger_auf_array  = $sth->fetchall_arrayref;

foreach $himbeere(@$zeiger_auf_array){

print "$$himbeere[0] => [$$himbeere[1],$$himbeere[2],$$himbeere[3]]";

my $hash_ref = {
  $$himbeere[0] => [$$himbeere[1],$$himbeere[2],$$himbeere[3]],

};

}

print"\n";
print "$hash_ref->{'TEST'}";

[迪拉斯]

Hey,
du hast versäumt,

use strict;  
use diagnostics;

zu benutzen, um dich vor eigenen dummen Fehlern zu schützen. Außerhalb der Schleife verliert $hash_ref seine Gültigkeit. Willst du die Variable erhalten, musst du sie vorher deklarieren.

[Christian Seiler]

Hallo,

$zeiger_auf_array  = $sth->fetchall_arrayref;

foreach $himbeere(@$zeiger_auf_array){

print "$$himbeere[0] => [$$himbeere[1],$$himbeere[2],$$himbeere[3]]";

my $hash_ref = {
  $$himbeere[0] => [$$himbeere[1],$$himbeere[2],$$himbeere[3]],

};

}

Wenn ich Dich richtig verstehe, versuchst Du hier (wegen mehrerer Fehler erfolglos) $sth->fetchall_hashref nachzubauen - warum nutzt Du nicht gleich das? Oder anders gefragt: Was genau willst Du mit obigem Code erreichen?

Viele Grüße,
Christian