Help for this page

Select Code to Download


  1. or download this
    >perl -MO=Concise -e"$a=1"
6  <@> leave[1 ref] vKP/REFC ->(end)
...
-           <1> ex-rv2sv sKPRM*/1 ->-
6              <#> gvsv[*a] s ->7
-e syntax OK
  2. or download this
    >perl -le"print( scalar( $a=5 ) );"
5

>perl -le"print( scalar( ($a)=5 ) );"
1
  3. or download this
    >perl -MO=Concise -e"@a=4"
9  <@> leave[1 ref] vKP/REFC ->(end)
...
7           <1> rv2av[t2] lKRM*/1 ->8
6              <#> gv[*a] s ->7
-e syntax OK