Select Code to Download

$string='7';
$num=$string+0

C:\>perl -MO=Concise,-exec -e"$string='7';$num=$string+0"
1  <0> enter
...
a  <#> gvsv[*num] s
b  <2> sassign vKS/2
c  <@> leave[1 ref] vKP/REFC

 $string='7';
 $num=int($string)"

C:\>perl -MO=Concise,-exec -e"$string='7';$num=int($string)"
1  <0> enter
...
a  <2> sassign vKS/2
b  <@> leave[1 ref] vKP/REFC
-e syntax OK

8  <$> const[IV 0] s
9  <2> add[t4] sK/2

8  <1> int[t4] sK/1