0

我有以下软件：

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

有没有好心人知道如何解决这个问题？

4

1 回答 1

1

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

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

在您的情况下，该变量似乎$octets包含一个已经从字节转换为字符的字符串。您可以通过添加提前返回来解决此问题：

return $octets if Encode::is_utf8($octets);
于 2015-02-25T03:47:15.020 回答