|
[26] Re:全角文字対応length(S-JIS専用) | |
|
2001/11/21 (Wed) 16:57:58 - あけび |
| おまけ。
S-JIS文字列中の全角/半角文字数をリストで返します。
printf "全角文字数:%d 半角文字数:%d\n", &zh_count("ああああaaaaaa");
sub zh_count {
local($s) = @_;
local($l) = length($s);
$s =~ s/[\x81-\x9f\xe0-\xfc].//g;
(($l-length($s))/2,length($s));
}
|
|
|