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

2008/12/07

ソースコードを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;"　　　　#  'う'　 と出力される。

カテゴリ: Perl_retry