Perl“参考键是实验性的”警告

Question

我的perl程序发出了一些警告，但在Internet上寻找解决方案还没有任何运气。 有什么办法可以重写以下代码段，以便不引发任何警告？

“参考键在...上是实验性的”：

foreach my $key ( keys %$api_decoded_result{'query'}->{'pages'} ) {
    @words = split / /, $api_decoded_result->{'query'}->{'pages'}{$key}->{'extract'};
}

Answer 1

对。 这是由于操作员取消引用的优先级。 %$api_decoded_result绑定比{'query'}更紧密。

keys %{$api_decoded_result{'query'}->{'pages'}}

会做你想做的。