与 Encode.pm 相关的 Perl 错误

Perl error related to Encode.pm

我有以下软件:

Ubuntu Linux 14.04 LTS

$ uname -a
Linux XXX 3.13.0-45-generic #74-Ubuntu SMP Tue Jan 13 19:36:28 UTC 2015 x86_64 x86_64 x86_64 GNU/Linux

Perl 5.18:

$ perl -version

This is perl 5, version 18, subversion 2 (v5.18.2) built for x86_64-linux-gnu-thread-multi
(with 41 registered patches, see perl -V for more detail)

和Encode.pm 2.49:

$ head -n 10 /usr/lib/perl/5.18/Encode.pm
#
# $Id: Encode.pm,v 2.49 2013/03/05 03:13:47 dankogai Exp dankogai $

当我使用 ikiwiki 时,这是一个使用 Encode.pm 的包,我收到以下错误:

$ ikiwiki --setup ~/wiki.setup
Cannot decode string with wide characters at /usr/lib/perl/5.18/Encode.pm line 176.

Encode.pm 的第 166 - 180 行显示:

sub decode($$;$) {
    my ( $name, $octets, $check ) = @_;
    return undef unless defined $octets;
    $octets .= '';
    $check ||= 0;
    my $enc = find_encoding($name);
    unless ( defined $enc ) {
        require Carp;
        Carp::croak("Unknown encoding '$name'");
    }
    my $string = $enc->decode( $octets, $check );
    $_[1] = $octets if $check and !ref $check and !( $check & LEAVE_SRC() );
    return $string;
}

有好心人知道如何解决这个问题吗?

当您尝试解码已经解码的内容时会发生该错误。

稍微扩展一下,在Perl中你可以有字节串和字符串。在输入时,您的数据可以从字节转换为字符串(例如使用解码或 IO 层)。在输出时,字符串必须转换为字节(例如使用编码或 IO 层)。

在您的情况下,$octets 变量似乎包含一个已从字节转换为字符的字符串。您可以通过添加早期 return:

来解决此问题
return $octets if Encode::is_utf8($octets);