198. format on Perl5.8 for Cygwin

On Fri, 06 Sep 2002 23:25:12 +0900
藤岡和夫 <kazuf@...> さんwrote:

> use encoding "shift_jis", Filter=>1;
> use utf8;
> use encoding 'shift_jis', STDIN=>'shift_jis';
> 
> で、一応エスケープシーケンスのインタフェースとログの表示はできるようにな
> りましたが、レポートでformat文中のshift_jis文字が文字化けするのと、98文
> 字が当然読めないのとが問題として残る・・・

　確認してみると、スクリプト中のformat文に含まれるShift_JIS文字列はUTF8
のコードに変換されたまま出力されるために文字化けしていることがわかりまし
た。

  番号 ID       登録日            TO  CO 題名

が、

  逡ェ蜿キ ID       逋サ骭イ譌・            TO  CO 鬘悟錐

になってしまいます。

　これを回避するためにはどのように書けばよいでしょうか。

藤岡 和夫
FGALTS@...
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/