Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl>perl -wMstrict -le
"print 'A: found 0x13!' if  unpack('H*',        'a1') =~ /13/;
...
"
A: found 0x13!
B: found 0x13!
  2. or download this
    c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(pp);
...
'H*' found 0x13! in "a1"
'h*' found 0x13! in "a1"
'h*' found 0x13! in "\37s"