Perl"引用键是实验性的"警告

Question

我的perl程序正在抛出一些警告,我还没有运气在互联网上寻找解决方案.有什么办法可以重写下面的代码片段,以便不会抛出任何警告吗？

"参考的关键是实验......":

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'}}

会做你想做的.