Re: How to print the actual bytes of UTF-8 characters ?

Using a variable as a file to handle the encodings:

#!/usr/bin/perl
use warnings;
use strict;

use utf8;

for my $char (qw(Ð Ñ Ò Ó)) {
    my $n = ord $char;
    open my $BYTE, '>:utf8', \ my $bytes;
    print {$BYTE} $char;
    printf "%s\t%s\t%x\t%b\t%x %x\t %b %b\n",
         $char, $n, $n, $n, (unpack('CC', $bytes)) x 2;
}
[download]

The pivoting of the table left as an exercise to the reader.

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: How to print the actual bytes of UTF-8 characters ? Download Code

Replies are listed 'Best First'.
Re^2: How to print the actual bytes of UTF-8 characters ? by RCH (Sexton) on Feb 06, 2014 at 16:18 UTC
Magic! Could you explain how it works? I had tried a simple minded unpack('C', $char) but it gave me the wrong answer. There are two things that I dont understand in your unpack solution (1) what are the contents of $bytes, and (2) what is the function of the slash "\" in `open my $BYTE, '>:utf8', \ my $bytes;` [download] ?	[reply] [d/l]
Re^3: How to print the actual bytes of UTF-8 characters ? by choroba (Cardinal) on Feb 06, 2014 at 17:16 UTC
`\` is the reference operator. Instead of using a file, I open the variable for output (see FILEHANDLE, MODE, REFERENCE in open). I set its encoding to UTF-8 and print the character to it. $bytes now contains the two bytes of the character as encoded in UTF-8. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^4: How to print the actual bytes of UTF-8 characters ? by RCH (Sexton) on Feb 06, 2014 at 17:49 UTC
\ is the reference operator Ah - of course Many thanks	[reply]
Re^2: How to print the actual bytes of UTF-8 characters ? by ikegami (Patriarch) on Feb 07, 2014 at 21:14 UTC
`open my $BYTE, '>:utf8', \my $bytes; print {$BYTE} $char;`? `utf8::encode(my $bytes = $char);`!	[reply] [d/l] [select]