binmode関数を２回繰り返すと結果が狂う？

質問

お世話になります。
「まるごとPerl」という雑誌の記事をWindowsに移植してEncodeモジュールの勉強中です。

#! perl
# list1 -- 日本語の文字を1文字として解釈
use strict;
use warnings;
use utf8; # スクリプトは UTF-8 で保存
binmode STDOUT, ':encoding(cp932)'; # 出力はCP932に変更

#４文字目のカから４文字、カタカナと表示される
my $text = '漢字、カタカナ、ひらがなの混じったtext';
print substr($text, 3, 4);

というスクリプトをUTF-8で保存してWindowsのDOS窓で（コードページはデフォルトのCP932のままで）実行すると

C:\> list1.pl
カタカナ

と無事表示されます。
ところが、うっかり間違えて binmode を

binmode STDOUT, ':encoding(cp932)'; # 出力はCP932に変更
binmode STDOUT, ':encoding(cp932)'; # 出力はCP932に変更

と２回書いてしまうと、結果がこうなります。

C:\> list1.pl
"\x{00ca}" does not map to cp932.
"\x{00de}" does not map to cp932.
"\x{00ca}" does not map to cp932.
"\x{00e9}" does not map to cp932.
\x{00ca}\x{00de}\x{00ca}\x{00e9}

これはいったい何が起こっているのでしょうか。
binmode はあるファイルハンドルのエンコードを決めるもので、何回やっても結果が一緒なのかと思っていました・・・。
00ca、00de、00ca、00deというのも、CP932の「カタカナ」のダンプ「834A 835E 834A 8369」をどうすれば得られるのか不明です・・・。
よろしくお願いします！！！

回答No.1

Gotthold · ベストアンサー

たぶん、UTF8→CP932変換が二回実行されています。

00caは、834AをUTF8と見なしたときのコードポイントだと思います。
（834AはUTF8としては不正なオクテットシーケンスだけど、
細かいところ無視すればUTF8のU+00CAと解釈はできそう。）

お礼

なるほど！！！
バッチリわかりました。
パイプのように効くんですね。
ちなみに
binmode STDOUT, ':encoding(cp932)'; # 出力はCP932に変更
binmode STDOUT, ':utf8'; # 出力はUTF-8に変更
binmode STDOUT, ':encoding(cp932)'; # 出力はCP932に変更
でうまく行くかと思いきやダメでした ;;;
ありがとうございました！！！