UTF-8 encode and decode: Difference between revisions
Content added Content deleted
(Initial task description, Common Lisp solution) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add Perl 6 example) |
||
Line 157: | Line 157: | ||
T |
T |
||
</lang> |
</lang> |
||
=={{header|Perl 6}}== |
|||
{{works with|Rakudo|2017.02}} |
|||
Pretty much all built in to the language. |
|||
<lang perl6>say sprintf("%-18s %-32s %9s\t%s\n", 'Character', 'Name', 'Unicode', 'UTF-8 encoding (hex)'), '-' x 84; |
|||
for < A ö Ж € 𝄞 😜 > -> $char { |
|||
printf " %-7s %-43s U+%04s\t%12s\n", $char, $char.uniname, |
|||
$char.ord.base(16), $char.encode('UTF8').list».base(16).Str |
|||
}</lang> |
|||
{{out}} |
|||
<pre>Character Name Unicode UTF-8 encoding (hex) |
|||
------------------------------------------------------------------------------------ |
|||
A LATIN CAPITAL LETTER A U+0041 41 |
|||
ö LATIN SMALL LETTER O WITH DIAERESIS U+00F6 C3 B6 |
|||
Ж CYRILLIC CAPITAL LETTER ZHE U+0416 D0 96 |
|||
€ EURO SIGN U+20AC E2 82 AC |
|||
𝄞 MUSICAL SYMBOL G CLEF U+1D11E F0 9D 84 9E |
|||
😜 FACE WITH STUCK-OUT TONGUE AND WINKING EYE U+1F61C F0 9F 98 9C</pre> |