lenght 関数の動作確認

Windows 上で動作を確認した。

#!/usr/bin/env perl
# 日本語
use strict;
use warnings;
use Encode;
use utf8;

my $chars;
while (<DATA>) {
    $chars = $chars . $_;
}

print encode('cp932', "Perl の内部文字コードの場合は lenght 関数は文字数を返す\n");
print length $chars, "\n";
print encode('cp932', "Perl の内部文字コードではない場合は lenght 関数は文字のバイト数を返す\n");
print length encode('cp932', $chars), "\n";

__DATA__
あいうえお
かきくけこ
さしすせそ
たちつてと
なにぬねの

実行結果。

Perl の内部文字コードの場合は lenght 関数は文字数を返す
30
Perl の内部文字コードではない場合は lenght 関数は文字のバイト数を返す
55