Help for this page

Select Code to Download


  1. or download this
    >perl -e"use Devel::Peek; $x='123'; Dump($x); 0+$x; Dump($x);"
SV = PV(0x2369cc) at 0x182a22c
...
  PV = 0x23fee4 "123"\0
  CUR = 3
  LEN = 4
  2. or download this
    >perl -MO=Concise -e"for (1..2) { print qq{Hello World\n} }"
g  <@> leave[1 ref] vKP/REFC ->(end)
...
f  <2> leaveloop vK/2
g  <@> leave[1 ref] vKP/REFC
-e syntax OK