MySQL und Perl - #101840 (Datenbanken und Verzeichnisdienste)

H3llGhost

2007-11-04 18:13

User since
2007-10-14
60 Artikel
BenutzerIn
[default_avatar]

Äh ne kleine Frage am Rande:
Warum wird dabei nichts ausgeben:

Code (perl): (dl )

        # mit jedem Durchlauf gibt es eine neue Variable $hash_ref mit eigener Speicheradresse
        while ( my $hash_ref = $result->fetchrow_hashref() ) {
        # $hash_ref nicht dereferenzieren, weil wir einen AoH aufbauen; perldoc perldsc
                $g_config_servers[ $hash_ref->{'serverId'} ] = $hash_ref;
                print $hash_ref->{'serverId'};
        }

print $g_config_servers{1};

Liegt es vielleicht daran:

Code (perl): (dl )

%g_config_servers = ();