明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の長さを調べる Perl sub char_count { ($_) = @_; # 全角文字数を数え、全角文字を消去する $lz = s/[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]//g; # 半角文字数を数える $lh = length($_); # 全角・半角の文…