Help for this page

Select Code to Download


  1. or download this
    $ perl -E 'use Unicode::UCD "charinfo"; my @cps = qw{U+DFA8 0xDFA8 0x1
+C9140 0xE6BAAA 0xFFFFFFFFFFFFFFFF}; for (@cps) { say "$_: ", defined 
+charinfo($_) ? "Assigned" : "Unassigned" }'
U+DFA8: Assigned
...
0xE6BAAA: Unassigned
Hexadecimal number > 0xffffffff non-portable at /Users/ken/perl5/perlb
+rew/perls/perl-5.28.0t/lib/5.28.0/Unicode/UCD.pm line 355.
0xFFFFFFFFFFFFFFFF: Unassigned
  2. or download this
    $ perl -E 'use Unicode::UCD "charinfo"; my @cps = qw{U+DFA8 0xDFA8 0x1
+C9140 0xE6BAAA 0xFFFFFFFFFFFFFFFF}; for (@cps) { say "$_: ", defined 
+charinfo($_) ? "Assigned" : "Unassigned" }'
U+DFA8: Assigned
...
0xE6BAAA: Unassigned
Hexadecimal number > 0xffffffff non-portable at /Users/ken/perl5/perlb
+rew/perls/perl-5.26.0t/lib/5.26.0/Unicode/UCD.pm line 365.
0xFFFFFFFFFFFFFFFF: Unassigned