2012年10月23日火曜日

Perlで文字コード判別

たまにnkf入っていないサーバーとかあるので、そんな時はPerlで文字コードを調べる。。こともあるかも。

今こんな感じで書いているけど、おかしいorもっと簡潔にかけるなら修正する。
#!/usr/bin/perl
use Encode::Guess qw/shift-jis euc-jp 7bit-jis/;
local $/ = undef;
my @data = <STDIN>;
close(IN);
my $enc = Encode::Guess->guess(@data);
ref($enc) || die "Can't guess: $enc";
print "Encode => ". $enc->name;
print "\n";
view raw guess.pl hosted with ❤ by GitHub
と、見せかけnkfがないならpiconv使えばいいじゃない!

0 件のコメント:

コメントを投稿