Help for this page

Select Code to Download


  1. or download this
    >perl -MO=Concise -e"$a and $b"
    6  <@> leave[1 ref] vKP/REFC ->(end)
    ...
    -           <1> ex-rv2sv vK/1 ->-
    5              <#> gvsv[*b] s ->6
    -e syntax OK
    
  2. or download this
    >perl -MO=Concise -e"if ($a) { $b }"
    6  <@> leave[1 ref] vKP/REFC ->(end)
    ...
    -              <0> ex-nextstate v ->5    / is the extra scope.
    -              <1> ex-rv2sv vK/1 ->-
    5                 <#> gvsv[*b] s ->6