cnt中文字数.pl

[eexpress]

代码： 全选

▶ cat bin/cnt中文字数.pl 
#!/usr/bin/perl

use utf8;
use Encode qw(_utf8_on);
#消除输出的"Wide character in print at ...."
binmode(STDOUT, ':encoding(utf8)');
#去掉空格和回车等。
open IN,"<$ARGV[0]"; while(<IN>){
s/\s//g;
_utf8_on($_);
$cnt+=length;
print;
}
print "\n\e[1;31m中文字数统计\e[0m\t=\t\e[1;34m$cnt\e[0m\n";

居然没找到精确的中文字数统计的方法，只好自己写一个。

[YeLee]

[c]
#define UTF8_LENGTH(Char) \
((Char) < 0x80 ? 1 : \
((Char) < 0x800 ? 2 : \
((Char) < 0x10000 ? 3 : \
((Char) < 0x200000 ? 4 : \
((Char) < 0x4000000 ? 5 : 6)))))
[/c]

[lilydjwg]

[bash]
python3 -c 'import sys, re; print(len(re.sub(r"\s+", "", sys.stdin.read())'
ghc -e 'interact $ (++ "\n") . show . length . filter (`notElem` "\n\r \t")'
[/bash]