Perl UTF8でスクリプトを書く場合のサンプル

ソースコードをUTF8で書いて、print文をUTF8で出力したい場合。

自分でもよく忘れるのでメモ。

#!/usr/bin/perl


use strict;

use warnings;

use utf8;      # このスクリプトはUTF8で書かかれていますよ、という宣言

binmode STDOUT, ":encoding(utf8)";　  # 以下のPrint文を自動的にUTF8として出力せよ、という命令

my $str ="あいうえお\n";

print substr($str,2,1)."\n;"　　　　#  'う'　 と出力される。