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