从散列perl的散列打印表

我有一个散列，它有一个键“form”和多个指向其他散列的

Table

键。但是表将有任意数量的

tr

，

tr

将有任意数量的

td

。所以问题是它有匿名数组。如何从该散列打印表

'form'=>{
    'Table2' => {
    'tr' => [
      {
        'td' => [
                {
                  'db_feild_name' => 'project_details',
                  'type' => 'texta',
                  'display_name' => 'Project Detail',
                  'mandate' => '1'
                },
                {
                  'db_feild_name' => 'project_name',
                  'type' => 'text',
                  'display_name' => 'Project Name',
                  'mandate' => '1'
                },
                {
                  'db_feild_name' => 'project_date',
                  'type' => 'date',
                  'display_name' => 'Date'
                }
              ]
      },
      {
        'td' => [
                {
                  'db_feild_name' => 'issue_name',
                  'type' => 'text',
                  'display_name' => 'Name',
                  'mandate' => '1'
                },
                {
                  'db_feild_name' => 'last_name',
                  'type' => 'text',
                  'display_name' => 'last Name',
                  'mandate' => '1'
                },
                {
                  'db_feild_name' => 'age',
                  'type' => 'text',
                  'display_name' => 'Age'
                }
              ]
      }
    ],
    'Table_Header' => 'test_table2',
    'Title' => 'i am table'
    }
}

说明：

$table

指向

{
  'tr' => [..],
  'Table_Header' => 'test_table2',
  'Title' => 'i am table'
}

{
  'td' => [..]
},

{
  'db_feild_name' => 'project_details',
  'type' => 'texta',
  'display_name' => 'Project Detail',
  'mandate' => '1'
},

$tr

指向

{
  'tr' => [..],
  'Table_Header' => 'test_table2',
  'Title' => 'i am table'
}

{
  'td' => [..]
},

{
  'db_feild_name' => 'project_details',
  'type' => 'texta',
  'display_name' => 'Project Detail',
  'mandate' => '1'
},

和

$td

指向

{
  'tr' => [..],
  'Table_Header' => 'test_table2',
  'Title' => 'i am table'
}

{
  'td' => [..]
},

{
  'db_feild_name' => 'project_details',
  'type' => 'texta',
  'display_name' => 'Project Detail',
  'mandate' => '1'
},

假设您的哈希值为

%h

for my $table (values %{ $h{"form"} }) {
  # print <table>
  print $table->{"Table_Header"}, $table->{"Title"};

  for my $tr (@{ $table->{"tr"} }) {
    # print <tr>

    for my $td (values %$tr) {
      # print <td>
      print $td->{"db_feild_name"}; # type,display_name,etc
      # print </td>
    }

    # print </tr>
  }

  # print </table>
}

my$表的

（值%{$h{“form”}）{
#印刷品
打印$table->{“table_Header”}，$table->{“Title”}；
对于我的$tr（@{$table->{“tr”}）{
#印刷品
对于我的$td（值%$tr）{
#印刷品
打印$td->{“db_feild_name”}；#键入、显示名称等
#印刷品
}
#印刷品
}
#印刷品
}