这个Perl代码中的“@”做什么？

在这段代码片段中：

use strict;
    use warnings;
    use Data::Dumper;
    my $r = [qw(testing this thing)];

    print Dumper($r);
    foreach my $row (@({$r})
    {
        print "$row\n";
        $row .= 'mod';
    }
    print Dumper($r);
    print Dumper(@({$r});

我发现'(‘之后的’@’在foreach中导致这不能正确循环,我不知道为什么这个代码甚至没有结束括号,这是什么呢？它在做什么？一个新的变量在飞行,但不应该“使用严格”已经开火或什么？

请帮忙解释一下“@(”正在做什么,为什么它仍然运行没有一个圆括号.

解决方法

这是％(变量)的哈希片段,它是*(glob的一部分),不受严格的vars的限制,对于Perl已经预定义的变量(在这种情况下为$)(也是所有其他的全部位置)所有标点符号变量在所有包中都是全局的,其全限定名称是简写形式：$),@),％),&)…由于严格的“vars”不适用于完全限定名称,这些名称都不是错误.

扩大一点：

@({$r};
@{(}{$r};
@{'main::('}{$r};  # needs strict refs to be off

这些行都是等价的.

使用警告; perl会让你知道用$sigil写一个单一值的片段会更好：

$({$r};
${(}{$r};
${'main::('}{$r};  # needs strict refs to be off

哪个在尝试解决错字时会指出你在正确的地方.这就是为什么你应该始终使用警告和限制.

有关更多详细信息,perlvar手册页将显示至少有一个sigil或所有标点符号变量.如果您想要一个关于标点符号变量范围的参考,那么package文档就是这样.

所有的标点符号变量也只能用于一次警告,这可能是一个错误

原文地址：https://www.jb51.cc/Perl/171410.html