【Perl】UTF-8フラグについて

Question

PerlにおけるUTF-8フラグってなんですか？
また文字列にUTF-8フラグが立っているかどうかを確認する方法はありますか？
UTF-8フラグが立っている文字列をprintで出力すると
Apacheのエラーログに
Wide character in printというエラーが出力されます。
調査の結果UTF-8フラグが立っている文字列を主力すると出る警告メッセージみたいです。
どのタイミングで文字列にUTF-8フラグが立ってしまったのか確認したいと思っております。

Answer 1

UTF-8フラグとはPerl内部文字コードで、Perlの中で「これは文字列ですよ〜」というフラグです。
Perlは内部で取り扱うデータはすべてバイナリデータとして取り扱ってます（たぶん

# sample_1
use utf8;
print length("あいうえお");

# sample_2
print length("あいうえお");

次のような２つの場合、sample_1の方は「use utf8;」とソース内の文字列すべてにUTF8フラグを付ける宣言をしています。
この場合、lengthで出力される数字は文字数の５が出力されます。
sample_2の方は、UTF8フラグがなくバイナリとして数えられ「15」と表示されます。(1文字3バイト構成)

またバイナリとして文字列を操作する場合、特定の文字と文字が続くと別の意味の文字になる事があり、
文字化けの原因や、正規表現などでの誤動作を起こす事があるようです。
なので、Perlで文字列を操作する時はUTF-8フラグを付けるようにした方がいいです。

UTF-8フラグが付いている文字列かどうかのチェックは、Encodeパッケージのis_utf8で調べる事ができます。

use Encode;
if (Encode::is_utf8("てすとてすと")) {
  print "フラグがついている！";
}

Comments

[BANDIT1250FABS]

ありがとうございます。