perlについての質問

while($a <=$gyou){
my $string = "$gyouretu[$a][0]";
print OUT substr($string, 0, 1);
$a++;
}

他のところはうまくいっていたのですが、このプログラムを入れた場合、文字化けを起こしてしまいます。UTF8でそろえております。
$gyouretu[$a][0]の文字列の、位置0から1文字、つまり1文字だけを出そうとしています。
現在、substrを使ったシステムの開発を行いたいと思っているため、$gyouretu[$a][0]の1文字だけを出せればよいということではありません。
この文字化けの解決法、わかる方がいましたら教えていただきたいです。
よろしくお願いいたします。

質問者からの補足コメント

• 返信ありがとうございます。文字化けはこのように出ています。

  
    補足日時：2022/10/17 18:55

No.2 ベストアンサー 回答者： Tacosan 回答日時： 2022/10/17 16:18

具体的にどう「文字化け」が起きているのかがわかれば適切な回答ができるようには思う.

現在の Perl では文字 (列) を表すときに内部的には Unicode を使っていて, substr なんかもこの「文字列」に対して働く. だから, 外部とのやりとりをするには Encoding::encode, Encoding::decode を使って内部表現と外部表現とを変換する必要がある.

なお utf8 プラグマはほとんど無関係.

この回答へのお礼

問題解決しました！
ありがとうございました！！

お礼日時：2022/10/24 17:05

No.1 回答者： Ogre7077 回答日時： 2022/10/17 16:04

utf8 で処理をそろえましょう

https://perldoc.jp/docs/modules/utf8-1.07/utf8.pod
https://metacpan.org/dist/perl/view/lib/utf8.pm