Perl：表达式优​​先级和评估

Question

我有以下代码：

$codelist = 00;

$OK = '0';
$OK = () = $codelist =~ /$OK/g;

print "$OK\n"; #answer is 2.

表达式$OK = () = $codelist =~ /$OK/g是如何计算的？优先顺序是什么？

Answer 1

B::Deparse 如果您感到困惑，可以显示优先级。

$ perl -MO=Deparse,-p -e '$OK = () = "00" =~ /0/g'
($OK = (() = ('00' =~ /0/g)));
-e syntax OK