Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

use 5.14.0;
...
   "name" : "&#12502;&#12521;&#12483;&#12461;&#12540;"
}
 (utf8: 1)

Select or download this

=head2 data utf8_decode (data)

Recursively UTF8-decode a data structure. Any data structure.
...
    my $data = shift;
    return utf8_decode($data, 1);
}