Help for this page

Select Code to Download


  1. or download this
     $ perl -MDevel::Peek -e "\$_='qwerty';Dump(\$_);s/[rt]/Dump(\$_);/ge;
+print Dump(\$_)"
SV = PV(0x801838) at 0x82fde0
...
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  2. or download this
    $data =~s/([^\n]{16})/pos($data)=0;ch($1)/ge;
  3. or download this
    # perl -e "\$_='qwerty';s/r/print pos();/e;"
3
...
# uname -v
Darwin Kernel Version 10.4.0: Fri Apr 23 18:28:53 PDT 2010; root:xnu-1
+504.7.4~1/RELEASE_I386