将UTF8字符串转换为Perl中的数值
例如,
my $str = '中國c'; # Chinese language of china
我想打印出数值
20013,22283,99
没有找到相关结果
已邀请:
4 个回复
惭法搽
将比
和
更有效,因为它不需要制作一堆临时的1个字符的字符串:
快速基准测试显示它比ѭ6快3倍:
结果:
较短的字符串差异不太明显,但
仍然是两倍多。 (
比其他分割快一点,因为它不构建代码点列表。)
禽兢玫坞劲
或压缩成一行:
Data :: Dumpered,这会产生:
械怒等
:
或更简洁,
财沟项胶