機種依存文字の文字コード変換 - Perl日記

Windowsのメモ帳で保存したテキストファイルの中に「①」があって、それをPerlで読み込んで以下のようにUTF-8に変換したら化けていた。 use Encode; open my $fh, '<', './memo.txt' or die; binmode $fh, q{:encoding(:sjis)}; print encode('utf8' => $_) for (<$fh>); close $fh; shiftjis "\x87" does not map to Unicode at - line 4. shiftjis "\x87" does not map to Unicode at - line 4. \x87@春はあけぼの \x87A夏はよる ... そういえばWindowsがいうShift-JISって、Microsoftが拡張したShift-JISなんだっけ、と思い出

[choplin]

大分前の記事だけど<$fh>をforで呼びだすとリストで評価されて一度に全部読み込んでしまうのでよろしくないような / "機種依存文字の文字コード変換 - Perl日記"