hide-k.net#blog: perlで機種依存文字を取り扱う

「D-5 出張版：機種依存文字入りのShiftJISを扱う」を読んで大変タイムリーだったので実験して見ました。 はてぶのコメントでmiyagawaさんが decode("cp932", $buf) でいい気が とおっしゃられているので こんなんで実験してみました。 JISやEUCを取り扱うのでEncode::Unicode::Japanseを使って見ました。 取り扱うtext.txtは機種依存文字や半角カタカナを含んだこんなファイル。 #!/usr/bin/perl use strict; use warnings; use Encode::Unicode::Japanese; use Encode qw/encode decode/; _encode (qw/text.txt shift_jis sjis-utf8.txt utf8/); _encode (qw/text.txt shi

[Wacky]

結論としてはutf8を扱うだけだったらcp932->utf8でよくて、eucやjisを使うんだったらEncode::Unicode::Japanese使うとWAVE DASHな問題も解決してくれる

[kdaiba]

文字コードネタ