Perl で内部コードを UTF-8, 入出力を EUC-JP にする
use encoding 'euc-jp'; # 内部コードをUTFにし、ソースコードをeuc-jpとみなす use open ':encoding(euc-jp)'; # ファイル入出力にeuc-jpとutf-8のコード変換を掛ける use open ':std'; # 標準入出力も変換する
入出力にファイルを使わない場合は、単に
use encoding 'euc-jp';
use encoding 'euc-jp'; # 内部コードをUTFにし、ソースコードをeuc-jpとみなす use open ':encoding(euc-jp)'; # ファイル入出力にeuc-jpとutf-8のコード変換を掛ける use open ':std'; # 標準入出力も変換する
入出力にファイルを使わない場合は、単に
use encoding 'euc-jp';