0

我有以下哈希哈希：

%tgs = (
'articles' =>  {
                   'vim' => '20 awesome articles posted',
                   'awk' => '9 awesome articles posted',
                   'sed' => '10 awesome articles posted'
               },
'ebooks'   =>  {
                   'linux 101'    => 'Practical',
                   'nagios core'  => 'Monitor'
               }
);

我正在使用以下内容：

$size = scalar keys (%{tgs{'articles'}});

但它不起作用。

4

2 回答 2

5

这$size = scalar keys (%{$tgs{'articles'}});应该可以解决问题 - 你忘记了 $ sigil。

哪里my $size = keys %{ $tgs{articles} };是更惯用的 perl。

于 2013-05-30T11:46:27.680 回答
2

您缺少美元符号：

my $size = scalar keys %{ $tgs{articles} };
于 2013-05-30T11:45:08.020 回答