Hash-Array in Perl

Question

Ich versuche, einen Hash-Array zu erstellen. Wie kann ich auf das gesamte Array zugreifen/drucken? Hier ist der Code:

my %data;  
my @row = ("My", "Name", "is", "Anthony", "Gonzalves"); 
print "@row"; 
$data{'First'} = \@row; 
print "@data{'First'}"; 

Die Ausgabe des obigen Codes ist: mein Name ist Anthony GonzalvesARRAY (0x7fa1a5831dc8).

Answer 1

In Ihrem Code ist $data {First} ein Referenz zu einem Array. Um auf die Elemente zuzugreifen (alle als Liste), würden Sie es mit @{} umschreiben. Also:

foreach my $element (@{$data {First}}) { 
    print $element; 
} 

Oder, kürzer und Drucken jedes Element in einer eigenen Zeile:

use 5.010; 
say for @{$data {First}}; 

Answer 2

Sie sollten @{} verwenden, um eine ref eines Arrays zuzugreifen:

%HoA=(
    flintstones =>["fred","barney"], 
); 

$HoA{teletubbies}=["tinky winky","dipsy","laa-laa","po"]; 

for $family (keys %HoA){ 
    print "$family: @{$HoA{$family}}\n"; 
} 

Der Ausgang ist:

simpsons: homer Marge bart 
teletubbies: tinky winky dipsy laa-laa po