Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my $_hex_text = sprintf '%X' x scalar(@_code_points), @_code_points;
my $_text = pack 'H*', $_hex_text;
print $_text;
  2. or download this
    use strict;
use warnings;
...

is($_text, $text, 'Restored text');
  3. or download this
    1..2
ok 1 - Number of Unicode characters
ok 2 - Restored text