perlのrindex関数について

Question

お世話になります。
my $testtest ="aaaダ";
my $p = rindex($testtest, '_');
print $p;

結果
$p=4
となります。
なぜでしょうか？
$p=-1ではないのでしょうか？

ご回答宜しくお願いいたします。

Answer 1

ただ、perl の文字列は単なるバイト列なので、shift-jis 等ではこのような事が起こります。
「ダ」の文字コードは、shift-jis で、835f で、「_」 の文字コードは、5f ですので、
ダの２の文字目が _ と同じになってしまいます。
utf-8 に変換すればそのような事はなくなります。

Comments

[退会済みユーザー]

ご回答ありがとうございます。全く気がつきませんでした。
utf-8に変換してみます。

Answer 2

スクリプトをShift-JISで記述しているので、"ダ"の2バイト目コードが"_"と同一で$p=4と
返ってきているのだと思います。UTF8にすれば$p=-1で返ってくるはずです。
スクリプトの文字コードに拘りがなければUTF8に変更してはどうでしょうか。