如何计算Perl中UTF-8字符串中的字符数？

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