Encode::Guessで判定失敗したときに、全ての文字コードを試してみる例

encode_guess_all_character_code.pl

use strict;
use warnings;
use utf8;

use Encode;
use Encode::Guess qw/ascii utf8 euc-jp shiftjis 7bit-jis/;

my $presence_list = [qw(
    出席 出 しゅっせき
)];
my $absence_list = [qw(
    欠席 欠 けっせき
)];
my $presence_re = join '|', map {quotemeta $_} @$presence_list;
my $absence_re = join '|', map {quotemeta $_} @$absence_list;

my $str = encode('shiftjis', '出席します');

# guess decoder
my $decoders = [];
my $decoder = Encode::Guess->guess($str);
unless (ref($decoder)) {
    my @names = split(' or ', $decoder);
    for my $name (@names) {
        my $d = find_encoding($name);
        push @$decoders, $d if $d;
    }
}
else {
    push @$decoders, $decoder;
}

return if @$decoders == 0;

my $rollcall_type = 0;
for my $d (@$decoders) {
    my $decoded_str = $d->decode($str);

    $rollcall_type = 1 if $decoded_str =~ qr{$presence_re};
    $rollcall_type = 2 if $decoded_str =~ qr{$absence_re};
}

warn $rollcall_type;