[スレッド全体]

[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