Help for this page

Select Code to Download


  1. or download this
    $ perl -MDevel::Peek -e'$_="\x{00C9}ric"; Dump($_);'
  FLAGS = (POK,pPOK)
...
$ perl -MDevel::Peek -e'$_=pack("N", 0xC9726963); Dump($_);'
  FLAGS = (POK,pPOK)
  PV = 0xa16b2d8 "\311ric"\0      # Binary
  2. or download this
    my $is_utf8 = eval {
   decode('UTF-8', $bytes, Encode::FB_CROAK|Encode::LEAVE_SRC);
   1
};
  3. or download this
    $ perl -MDevel::Peek -e'$_="ABCD"; Dump($_);'
  FLAGS = (POK,pPOK)
...
$ perl -MDevel::Peek -e'$_=pack("N", 0x41424344); Dump($_);'
  FLAGS = (POK,pPOK)
  PV = 0x9e0a2c8 "ABCD"\0         # Binary