Help for this page

Select Code to Download


  1. or download this
    pack 'P', pack 'P', $data
  2. or download this
    sub foo { pack 'P', $_[0] } foo pack 'P', $data;
  3. or download this
    >perl -MDevel::Peek -we "Dump 1; sub foo{Dump $_[0];$_[0]=1} foo(1)"
SV = IV(0x653478) at 0x653488
...
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 2