Wie Daten in Hash gespeichert sind, zugreifen

Question

Ich habe diesen Code:

$coder = JSON::XS->new->utf8->pretty->allow_nonref; 
%perl = $coder->decode ($json); 

Wenn ich print %perl Variable schreiben sie sagt HASH (0x9e04db0). Wie kann ich auf Daten in diesem HASH zugreifen? nur

Answer 1

Der Rückgabewert von decode ist kein Hash und Sie sollten es nicht einer zuweisen - wenn Sie dies tun, zerstören Sie seinen Wert. Es ist ein Hash Referenz und sollte einem Skalar zugewiesen werden. Lesen Sie perlreftut.

Answer 2

viele Möglichkeiten, können Sie ein foreach loop

foreach my $key (%perl) 
{ 
    print "$key is $perl{$key}\n"; 
} 

oder ein while loop

while (my ($key, $value) = each %perl) 
{ 
    print "$key is $perl{$key}\n"; 
} 

Answer 3

Sie müssen verwenden, um die bestimmten Schlüssel von Hash spezifizieren, dann Sie können auf die Daten aus dem Hash zugreifen.

Zum Beispiel, wenn% perl Hash hat Schlüssel namens "Datei";

Sie annehmen, wie unten

print $ perl zuzugreifen { 'Datei'}; # Würde es den Dateischlüssel-Wert der% Perl Hash

Answer 4

Da die decode Methode tatsächlich gibt eine Referenz Hash, der richtige Weg wäre es, zuzuordnen drucken:

%perl = %{ $coder->decode ($json) }; 

Um die Daten aus dem Hash zu erhalten, können Sie die each Built-in oder Schleife über ihre Schlüssel verwenden und die Werte durch Subskribierung abrufen.

while (my ($key, $value) = each %perl) { 
    print "$key = $value\n"; 
} 

for my $key (keys %perl) { 
    print "$key = $perl{$key}\n"; 
} 

Answer 5

JSON :: XS-> Dekodierung gibt einen Verweis auf ein Array oder einen Hash zurück. Zu tun, was Sie zu tun versuchen würden Sie haben, dies zu tun:

$coder = JSON::XS->new->utf8->pretty->allow_nonref; 
$perl = $coder->decode ($json); 

print %{$perl}; 

Mit anderen Worten, Sie haben zu dereferenzieren dem Hash, wenn es zu benutzen.