小编use*_*452的帖子

我还在学习Perl,我的任务是caller确定是否从eval更高级别调用子程序.我应该想出一些代码来测试它并打印Yes如果它来自eval或No如果不是.我找不到任何关于如何caller在网上使用的好例子,并且想知道是否有人对如何进行此操作有任何想法或建议.

我只是在学习perl.

我试图使用临时变量重写这个多级循环,以便我不需要以前的键($key1 $key2)来获取访问(解除引用)$key3.这样做最简单的方法是什么.谢谢.

for my $key1 ( keys %foo )
{
    for my $key2 ( keys %{$foo{$key1}} )
    {
        for my $key3 ( keys %{$foo{$key1}{$key2}} )