Perl/日本語処理/文字コードの宣言 - use utf8, use encoding のバックアップ(No.1) - yanor.net/wiki

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl/日本語処理/文字コードの宣言 - use utf8, use encoding へ行く。
- 1 (2006-04-26 (水) 00:43:00)
- 2 (2007-09-07 (金) 06:56:20)
- 3 (2009-09-07 (月) 05:19:54)
- 4 (2011-01-07 (金) 05:53:02)

use encoding

効果

Perlのソースコード自体の文字列を、UTF8フラグ付きにする。
標準入力と標準出力を指定した文字コードに変換する。
その際、入力についてはUTF8フラグを付け、出力についてはUTF8フラグを落とす。

使いどころ

Perlのソースコード内に日本語を書いて、それを加工するような時。上のプログラムは正しく「あ」が表示される。下は化ける。

 #!/usr/bin/perl
 
 use encoding 'euc-jp';
 
 $text = "あああ";
 print  substr($text,0,1),"\n";

 #!/usr/bin/perl
 
 #use encoding 'euc-jp';
 
 $text = "あああ";
 print  substr($text,0,1),"\n";

注意点

ファイルの入出力については効果がない。それにはuse openなどを使う。
（標準出力に）print()する文字列はUTF8フラグがあってはならない（Perlがwarningを出す）。そのため、出力時にUTF8を落とすのは必要なこと。

文字コードの変換

以下のようにすると、EUCからSJISへ変換して表示される。

 #!/usr/bin/perl
 
 use encoding 'euc-jp', STDOUT=>'shift_jis'
 while(<>){
     print $_;
 }

use utf8

use utf8は、use encoding 'utf8'と同じ意味。