UTF-8 encode and decode: Difference between revisions
m
→{{header|Perl 6}}: Added a multibyte emoji character to example.
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Added a multibyte emoji character to example.) |
|||
Line 731:
{{works with|Rakudo|2017.02}}
Pretty much all built in to the language.
<lang perl6>say sprintf("%-18s %-
for < A ö Ж € 𝄞 😜 👨👩👧👦> -> $char {
printf " %-
('U+' X~ $char.
}</lang>
{{out}}
<pre>Character
----------------------------------------------------------------------------------------------------
A
ö
Ж
€
𝄞
😜
👨👩👧👦 | MAN,ZERO WIDTH JOINER,WOMAN,ZERO WIDTH JOINER,GIRL,ZERO WIDTH JOINER,BOY | 128104 8205 128105 8205 128103 8205 128102 | U+1F468 U+200D U+1F469 U+200D U+1F467 U+200D U+1F466 | F0 9F 91 A8 E2 80 8D F0 9F 91 A9 E2 80 8D F0 9F 91 A7 E2 80 8D F0 9F 91 A6 | 👨👩👧👦
</pre>
=={{header|Phix}}==
|