[
スレッド全体
]
[24]
Re:全角文字対応length(S-JIS専用)
2001/7/13 (Fri) 13:57:49 - あけび
eucの場合
sub z_length {
local($s,$o) = @_;
local($l,$zl) = (length($s),($s =~ tr/\xa1-\xfe//)/2);
$o ? $zl : $l-$zl;
}
[
▼次のスレッド
]
INCM/CMT
Cyclamen v3.84.01