Help for this page

Select Code to Download


  1. or download this
    >perl -MO=Concise -e"local $x = $y
6  <@> leave[1 ref] vKP/REFC ->(end)
...
-        <1> ex-rv2sv sKRM*/129 ->5
4           <#> gvsv[*x] s/LVINTRO ->5
-e syntax OK
  2. or download this
    Give local higher precedence
>perl -le"$x=2; { (local $x)=$x; print $x; $x=3; print $x } print $x"
...
2
3
3   <-- XXX
  3. or download this
    >perl -le"local(${print('a'), 'x'}) = ${print('b'), 'x'};
b
a