时间戳

首页 > 解决方案 > 打印数组数组的哈希内容

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

问题描述

我一直在尝试在 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，那么只需打印它，因为它不是数组。否则，打印其数组的内部内容。

标签： perl

解决方案

你必须使用strictandwarnings因为他们会告诉你很多关于你的代码有什么问题。

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

您应该使用不同的数据结构来更简单地访问内部数据元素。你有一个数组哈希，但它作为哈希哈希更有意义。通过使用=>for '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输出更易于阅读。

推荐阅读