需要帮助来解释这个perl代码

Question

我很难绕过这一小段代码

我的$ ref =\@ {$ seq - > {$ label} {$ ARGV [4]}};

我可以获得一些解密信息吗？

Answer 1

让我们像这样重写它

my $ref = \@{

    $seq->{ $label }{ $ARGV[4] }

}

外部my $ref =是一项任务.我认为这很清楚

然后将大括号的内容@{ ... } 取消引用为数组,\然后引用它.参考抵消提领,所以它的同向

my $ref = $seq->{ $label }{ $ARGV[4] }

除了取消引用会导致程序死亡

不是ARRAY参考

如果内容不是对数组的引用

现在我们有

$seq->{ $label }{ $ARGV[4] }

它$seq用作哈希散列的引用,并$label用作第一级键和$ARGV[4](第五个命令行参数)作为第二级键

那句话是由一个我慷慨地称之为穷人程序员的人写的.我怀疑它是否打算检查哈希值是否为数组引用,并且至少$ARGV[4]应该复制到命名变量以使含义清楚