Help for this page

Select Code to Download


  1. or download this
    use Devel::Peek;
use JSON::XS;
...
my $j = JSON::XS->new->latin1(1)->encode(["$smile"]);
my $d = JSON::XS->new->utf8(1)->latin1(1)->decode($j);
Dump $$d[0];
  2. or download this
    SV = PV(0x8f19788) at 0x8f323bc
  REFCNT = 1
...
  PV = 0x8f4be68 "\342\230\273"\0 [UTF8 "\x{263b}"]
  CUR = 3
  LEN = 10