perl 文字コード自動判定
perl で自動判定する方法を見つけた。
データを既存システムからWPに移行するためになんかしらないけどUTF8とSJISが混在している。
もうUTF8かSjisかってのはわかってるので、UTF8がわかればいいということで、こんな感じ。
データを既存システムから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"); # 結果スナップ
スポンサーリンク