Re^4: Bypass utf-8 encoding/decoding?

Quite right, of course. But I was surprised today while playing with using the official name for Unicode characters to find that it's not needed in that case:

use strict; use warnings; use feature 'say';
#use utf8;
use open qw( :encoding(UTF-8) :std );
say "\N{FATHER CHRISTMAS} thanks you for all your hard work tonight";
__END__
[download]

🎅 thanks you for all your hard work tonight

use strict; use warnings; use feature 'say';
#use utf8;
use open qw( :encoding(UTF-8) :std );
say "🎅 thanks you for all your hard work tonight";
__END__

šŸŽ… thanks you for all your hard work tonight

The way forward always starts with a minimal test.

Comment on Re^4: Bypass utf-8 encoding/decoding? Download Code

Replies are listed 'Best First'.
Re^5: Bypass utf-8 encoding/decoding? by 1nickt (Canon) on Dec 01, 2017 at 14:01 UTC
Well, spend a little time in the PerlMonks Chatterbox and you'll learn something ... To answer my question above, see charnames: "Pragma use charnames is used to gain access to the names of the Unicode characters and named character sequences ..." "Starting in Perl v5.16, any occurrence of \N{CHARNAME} sequences in a double-quotish string automatically loads this module ..." Thanks choroba for pointing to this pragma. The way forward always starts with a minimal test.	[reply]
Re^6: Bypass utf-8 encoding/decoding? by karlgoethebier (Abbot) on Dec 01, 2017 at 16:39 UTC
"...spend a little time...and you'll learn something..." 👏 Best regards, Karl «The Crux of the Biscuit is the Apostrophe» `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l]