[Perl]ファイル出力のエンコード（EUC、SJIS、UTF8）を指定したい

EUCで書かれた文章を読み取ったにもかかわらず、S-JISで出力されます。
これを、任意の文字コードに指定して、出力する方法は無いものでしょうか？
ご存知の方、教えてください。
宜しくお願い致します。

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/05/12 02:36

以下のサンプルは、コードをUTF-8 で記述して、標準出力をシフトＪＩＳで出力し、ＥＵＣ－ＪＰでファイルから入力します。

"<:encoding(euc-jp)" は、PerlIO レイヤの指定で、これを変えれば、ファイル出力を任意の文字コードにできます。
binmode STDOUT, ":encoding(euc-jp)";
のような指定もできます。
----------------------------------------------------------------
use encoding "UTF-8", STDOUT => "Shift_JIS";

open(FH, "<:encoding(euc-jp)", "EUC.txt");
while(<FH>){
print ;
}
close(FH);

この回答へのお礼

回答いただきありがとうございます。
とても、参考になりました！

お礼日時：2006/05/12 17:40

No.1 回答者： osamuy 回答日時： 2006/05/12 00:27

Perl 5.8以降なら、プラグマencodingが利用できますので、例えば基本エンコーディングをEUC、出力ファイルハンドルをUTF-8にするといった事ができます。

くわしくはperldoc encodingをどうぞ。
サンプルもいろいろ書かれてます。

参考URL：http://perl.active-venture.com/pod/perljp.html

この回答へのお礼

回答いただきありがとうございます。
とても、参考になりました！

お礼日時：2006/05/12 17:40