Help for this page

Select Code to Download


  1. or download this
      DB<1> x ref(\($x=5))
0  'SCALAR'
...
0  'GLOB'
  DB<5> x ref(\substr("foo",1,1))
0  'LVALUE'
  2. or download this
    perl -we '$x = \$y; for $z ( 2, \5, *u, vec(2,1,1) ) { $y = $z; warn r
+ef($x), " ", $x; }'
  3. or download this
    SCALAR SCALAR(0x813c4d0) at -e line 1.
REF REF(0x813c4d0) at -e line 1.
GLOB GLOB(0x813c4d0) at -e line 1.
SCALAR SCALAR(0x813c4d0) at -e line 1.