Help for this page

Select Code to Download


  1. or download this
    perl -MDevel::Peek -e '$a = 1; Dump ($a); %a = map +{$_}, $a; Dump ($a
+)'
SV = IV(0x8192edc) at 0x8191dc4
...
  PV = 0x818b5b8 "1"\0
  CUR = 1
  LEN = 2
  2. or download this
    perl -MDevel::Peek -e '$a = 1; Dump ($a); %a = map {"$_",}, $a; Dump (
+$a)'
SV = IV(0x8192edc) at 0x8191dc4
...
  PV = 0x818b5b8 "1"\0
  CUR = 1
  LEN = 2