2008-10-08から1日間の記事一覧

perlでEUC-JPからUTF-8への変換フィルタ

まずは、いままでの「文字コード変換」っぽく #!/usr/bin/perl # # This file code is UTF-8N. # use strict; use warnings; use open ":utf8"; use Encode::Guess qw/euc-jp shiftjis 7bit-jis/; use Encode qw/from_to/; # UTF-8コード変換 while (<STDIN>) { # U</stdin>…