小编Dan*_*ana的帖子

我目前正在学习 Perl，我想将一个数组传递给子例程并打印其内容。我发现应该传递对数组的引用，但是我遗漏了一些东西：

arrayPrint($a,$b,\@array);

sub arrayPrint{
    my ($a,$b,@array) = @_;

    for(my $i=0; $i<=$#array;$i++){
        print $file $a.$b.$array[i]."\n";
    }
}

我是 Perl 新手，正在努力解决哈希问题。我想循环遍历哈希，这意味着我想访问“obj”中的所有元素（每个“obj”的数字可以不同），例如：

   $VAR1 = { 'obj1' => ['par1', 
                         'par2', 
                         'par3'
                        ],
              'obj2' => ['par1', 
                         'par2', 
                         'par3',
                         'par4'
                        ]
    }

下面的代码片段仅循环“obj”。如何访问 obj 中的元素？

foreach my $key (keys %hash) 
{
   print ($key)
}

知道如何访问对象内的 par 或 Perl 文档参考吗？谢谢您的帮助！

我想在 Perl 中测试两个布尔值。如果两者都是 0，则执行 x，否则执行 y。例如： $var1 = 0; Perl 中为 false $var2 = 0; Perl 中为 false

if($var1==0 && var2==0)
{
  x //both are false
}
else
{
 y //both are true
}