Perl 打印 hashref 值

Question

我似乎无法打印 hashref 的值。

我可以这样打印 key :

 foreach (sort keys %$wss_href) {
     print "$_\n";
 }

我还想打印每个键的值:
所以我试过:

 print "$_ => $wss_href{$_}\n";
 print "$_ => $%$wss_href{$_}\n";

它一直给我一个错误 Global symbol "%wss_href" requires explicit package name
我如何尊重 hashref 来获取每个键的值？

Answer 1

如果是 %NAME对于散列，它是 %{REF}用于哈希引用。

如果是 $NAME{EXPR}对于散列，它是 ${REF}{EXPR}用于哈希引用。

看到图案了吗？

您正在寻找以下内容:

for (sort keys %{ $wss_href }) {
    print "$_ => ${ $wss_href }{$_}\n";
}

如果引用表达式只是一个变量，则可以省略 curl 。

for (sort keys %$wss_href) {
    print "$_ => $$wss_href{$_}\n";
}

但是您也可以使用更简洁的语法。

for (sort keys %$wss_href) {
    print "$_ => $wss_href->{$_}\n";
}

Mini-Tutorial: Dereferencing Syntax

References quick reference

perlref

perlreftut

perldsc

perllol