Как подсчитать количество символов в строке UTF-8 в Perl?

Question

У меня есть строка, которая содержит английские и русские символы.Как подсчитать количество символов в Perl?

Answer 1

use utf8;
my $str='test ТЕСТ';
print length($str);

Если вы читаете строку из файла, вы должны прочитать ее как utf-8

open my $fh,'<:utf8','filename.ext';

Answer 2

Просто используйте код:

meAkemi:~$ perl -e 'use Encode; $_="é"; print length( Encode::decode_utf8($_)),"\n"'
1