文字列の長さを調べる

明解Ｃ言語 入門編 > 9. 文字列の基本 >

文字列の長さを調べる

Perl

sub char_count
{
    ($_) = @_;

    # 全角文字数を数え、全角文字を消去する
    $lz = s/[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]//g;
    
    # 半角文字数を数える
    $lh = length($_);

    # 全角・半角の文字数を足して返す
    return $lz + $lh;
}

$n = &char_count("１２３");
print "文字数('１２３') = $n \n";

$n = length("１２３");
print "バイト('１２３') = $n \n";

実行結果

L:\>perl lesson_09_072.pl

文字数('１２３') = 3

バイト('１２３') = 6