Help for this page

Select Code to Download


  1. or download this
    lanx:~$ perl -MO=Concise -e 'my (0?$a:$b)="X";print $a' 
c  <@> leave[1 ref] vKP/REFC ->(end)
...
9        <0> pushmark s ->a
a        <0> padsv[$a:1,2] l ->b
-e syntax OK
  2. or download this
    lanx:~$ perl -MO=Concise -e 'my ($b)="X";print $a' 
c  <@> leave[1 ref] vKP/REFC ->(end)
...
-        <1> ex-rv2sv sK/1 ->b
a           <#> gvsv[*a] s ->b
-e syntax OK
  3. or download this
    perl -wce 'my $a if 0; print $a' 
Deprecated use of my() in false conditional at -e line 1.
-e syntax OK