use v5.12.0; use warnings; #use Devel::Peek; use utf8; use Encode qw(is_utf8 _utf8_on _utf8_off); my $str = "ä"; say $str, ":",length($str); #Dump($str); _utf8_off($str); say $str, ":",length($str); #Dump($str);
ä:1 ä:2
Cheers Rolf
(addicted to the 𐍀𐌴𐍂𐌻 Programming Language :)
Wikisyntax for the Monastery
In reply to Re^7: Seeking Perl docs about how UTF8 flag propagates
by LanX
in thread Seeking Perl docs about how UTF8 flag propagates
by raygun
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |