Perl＆＃34;引用的关键是实验＆＃34;警告

Question

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

＆＃34;参考的关键是实验性的......＆＃34;：

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

会做你想做的事。