打印数组的数组的哈希内容

Question

我一直在尝试在Perl中阅读以下结构：

my %Homes = (
"Home 1" => [
'TYPE_OF_HOUSE' => "Villa",
'FIELD1' => ["1","2","3"],
'Field2' => ["2","3","4"],
'Field3' => ["3","4","5"],
],
"Home 2" => [
'TYPE_OF_HOUSE' => "Duplex",
'FIELD1' => ["1","2","3"],
'Field2' => ["2","3","4"],
'Field3' => ["3","4","5"],
],
"Home 3" => [
'TYPE_OF_HOUSE' => "Apartment",
'FIELD1' => ["1","2","3"],
'Field2' => ["2","3","4"],
'Field3' => ["3","4","5"],
],
);

通过使用以下内容：

my @data_Array;
my ($inner_Key,$key,$names_ref);
foreach $key (keys %Homes)
{
print("Inner values of house $key are:");
foreach $inner_Key ( @{$Homes{$key}})
{
if ($inner_Key != "TYPE_OF_HOUSE")
{
$names_ref  = @$inner_Key;
@data_Array = @{$names_ref};
print($data_Array[0]);        
print($data_Array[1]);      
print($data_Array[2]);      
}
else
{
print($inner_Key);
}
}
}

我成功地打印了："Home 1"、"Home 2"，但是当尝试读取内部内容时，即使我使用了对数组的引用，它也不顺利。我错过了什么？ 我的目标是"识别"字段的类型，如果它是TYPE_OF_HOUSE，那么只需打印它，因为它不是一个数组。否则，打印其数组的内部内容。

Answer 1

你必须使用strict和warnings，因为它们会告诉你很多关于你的代码有什么问题。

比较字符串时，需要使用ne而不是!=。

应使用不同的数据结构，以便更轻松地访问内部数据元素。 你有一个数组的哈希，但它作为哈希的哈希更有意义。 通过使用=>表示'TYPE_OF_HOUSE' => "Villa"，你已经欺骗自己相信这是一个哈希。 但是，它只是一个平面数组。 数组的第一个元素是TYPE_OF_HOUSE，第二个元素是Villa的，第三个是FIELD1的，第四个是数组引用，依此类推。

use warnings;
use strict;
my %Homes = (
"Home 1" => {
'TYPE_OF_HOUSE' => "Villa",
'FIELD1'        => [ "1", "2", "3" ],
'Field2'        => [ "2", "3", "4" ],
'Field3'        => [ "3", "4", "5" ],
},
"Home 2" => {
'TYPE_OF_HOUSE' => "Duplex",
'FIELD1'        => [ "1", "2", "3" ],
'Field2'        => [ "2", "3", "4" ],
'Field3'        => [ "3", "4", "5" ],
},
"Home 3" => {
'TYPE_OF_HOUSE' => "Apartment",
'FIELD1'        => [ "1", "2", "3" ],
'Field2'        => [ "2", "3", "4" ],
'Field3'        => [ "3", "4", "5" ],
},
);
my @data_Array;
my ( $inner_Key, $key, $names_ref );
foreach $key ( keys %Homes ) {
print("Inner values of house $key are:");
print "n";
foreach $inner_Key ( keys %{ $Homes{$key} } ) {
if ( $inner_Key ne "TYPE_OF_HOUSE" ) {
@data_Array = @{ $Homes{$key}{$inner_Key} };
print( $data_Array[0] );
print "n";
print( $data_Array[1] );
print "n";
print( $data_Array[2] );
print "n";
}
else {
print($inner_Key);
print "n";
}
}
}

我使用perltidy来改善缩进。 我添加了换行符，以使您的print输出更易于阅读。