与Encode.pm相关的Perl错误

Question

我有以下软件：

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;
}

有没有善良的灵魂知道如何解决这个问题？

Answer 1

当您试图解码已经解码的内容时，就会发生此错误。

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

在您的示例中，$octets变量包含一个字符串，该字符串已经从字节转换为字符。您可以通过添加一个早期返回来解决这个问题：

return $octets if Encode::is_utf8($octets);