2011年7月15日金曜日

perlでutf-8

perl v5.12.3
Mac OS X 10.6.8

コードの先頭を以下のようにする
#!/usr/bin/perl
use strict;
use utf8;
binmode STDIN,  ":utf8";
binmode STDOUT, ":utf8";

PerlのスクリプトがUTF-8で書かれていることを以下のように明示する
use utf8;

STDIN, STDOUTがUTF-8なら、binmodeを使って以下のように明示する
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

サンプル
#!/usr/bin/perl
use strict;
use utf8;
binmode STDIN,  ":utf8";
binmode STDOUT, ":utf8";

print "おやつは300円まで\n";


参考

PerlでUTF-8の文字コードを扱う
http://osksn2.hep.sci.osaka-u.ac.jp/~taku/osx/perl/perl_utf.html

0 コメント: