Help for this page

Select Code to Download


  1. or download this
    $ perl -MDevel::Peek -E'my $x = 1; print "$x\n"; print Dump($x)'
1
...
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 1
  2. or download this
    $ perl -MDevel::Peek -E'my $x = 1; print "$x\n"; $x += 0 ;print Dump($
+x)'
1
...
  PV = 0x9cb43a0 "1"\0
  CUR = 1
  LEN = 12