perl 文字コード自動判定


スポンサーリンク

perl で自動判定する方法を見つけた。
データを既存システムからWPに移行するためになんかしらないけどUTF8とSJISが混在している。
もうUTF8かSjisかってのはわかってるので、UTF8がわかればいいということで、こんな感じ。
#
# IN DATA:$DLY_RPOT_V
# OT DATA:$DLY_RPOT_V
#
tracesub("DLY_RPOT_V=$DLY_RPOT_V"); # 入力前スナップ
#------
use Encode::Guess qw/euc-jp shiftjis iso-2022-jp/;
my $enc = Encode::Guess->guess($DLY_RPOT_V);
if(ref($enc) eq 'Encode::utf8'){
	$DLY_RPOT_V=strcode_conv("utf82sjis",$DLY_RPOT_V); # UTF8 変換のオリジナルモジュール
}
elsif(ref($enc) eq 'Encode::Unicode'){
}
elsif(ref($enc) eq 'Encode::XS'){
}
elsif(ref($enc) eq 'Encode::JP::JIS7'){
}
else{
}
#------
tracesub("DLY_RPOT_V=$DLY_RPOT_V"); # 結果スナップ

スポンサーリンク