, , perldoc perlop, , , , B:: Deparse:
perl -MO=Deparse,-p,-q,-sC
my $x = 1;
$x = $x * 5 * ($x += 5);
^D
:
(my $x = 1);
($x = (($x * 5) * ($x += 5)));
- syntax OK
, , :
($x = (($x * 5) * ($x += 5)));
($x = ((1 * 5) * ($x += 5)));
($x = ((5) * (6)));
($x = (5 * 6));
($x = (30));
($x = 30);
$x = 30;
, , $x 6, -, (1) , 30.