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使えばいいじゃない！