如何在perl中循环散列哈希并访问包含的数据？

Question

我有一个清单

my %SERVICES = (
              name=>
              {
                 description => 'Item 1',
                 service_codes => [ 'item1' ],
              },
              name2=>
              {
                 description => 'Item 2',
                 service_codes => [ 'item2' ],
              },
            );

我需要做的是引用描述并将其打印到名为$ service_name的变量中，因此在引用时，文本将读取第1项或第2项。

我在perl非常新，我尽我所能尽力了解这一点。任何帮助将不胜感激，请使用小词。 ：）

Answer 1

很简单，尝试循环数据结构

while ( my ($k, $data) = each %SERVICES ) {
  my $service_name = $data->{description};
  say $service_name;
}

Answer 2

程序：

{{1}}