perl 用胖逗号祝福

Question

我知道 perl bless 可以接受 1 或 2 个 arg，如 perlbless 中所述。但是，我不明白下面代码中的胖逗号是做什么的？和bless \$value,$class;一样吗？

# Construct the tie.
sub TIESCALAR { 
    my $class = shift;
    my $value = shift || 0;

    bless \$value => $class;
}

Answer 1

胖逗号只是comma 的另一种写法。你可以看到这个：

perl -MO=Deparse -e 'bless \$value => $class'
bless \$value, $class;
-e syntax OK

here 也可以找到有趣的讨论。