Question

我们安装了ASSP（反垃圾邮件SMTP代理）v2.3.3.13217（最后一个）（在Ubuntu Server 13.04上）。一段时间后，它开始在控制台打印：

...
Wide character in print at sub main::mlogWrite line 30
Wide character in print at sub main::mlogWrite line 32
Wide character in print at sub main::mlogWrite line 30
Wide character in print at sub main::mlogWrite line 32
...

等等。

这是来自assp.pl的这个子：

sub mlogWrite {
    return if $WorkerNumber;
    my @m;
    my $items;
    threads->yield();
    &debugWrite();
    threads->yield;
    $items = $mlogQueue->pending();
    $refreshWait = (time - $lastmlogWrite) > 5 ? 5 : 1;
    return if (! $items);
    threads->yield();
    @m = $mlogQueue->dequeue_nb($items);
    threads->yield();
    my @tosyslog;
    while (@m) {
       my $logline = my $line = de8(shift @m);
       if ($Unidecode2Console) {
           eval{
               $line = Text::Unidecode::unidecode($line);
           } or print "con uni-decoding error: $@";
       } else {
           eval{
               Encode::from_to($line,'UTF-8',$ConsoleCharset,sub { return '?'; })
                   if $ConsoleCharset && $ConsoleCharset !~ /utf-?8/oi;
               1;
           } or print "con encoding error: $@";
       }
       push @tosyslog,substr($line,length($LogDateFormat)) if ($sysLog && ($CanUseSyslog || ($sysLogPort && $sysLogIp)));
       if ($line !~ /\*\*\*assp\&is\%alive\$\$\$/o) {
           print $line unless ($silent);
           w32dbg($line) if ($CanUseWin32Debug);
           print $LOG $logline if ($logfile && $asspLog && fileno($LOG));
           print $LOGBR $logline if ($logfile &&
                                     $asspLog &&
                                     fileno($LOGBR) &&
                                     $ExtraBlockReportLog &&
                                     $logline =~ /\[\s*spam\sfound\s*\]/io);
       }
       if ($logline !~ /page:\/maillog/o) {
           shift @RealTimeLog if (@RealTimeLog > 33);
           push @RealTimeLog, $logline;
           $lastmlogWrite = time;
       }
    }
    tosyslog('info', \@tosyslog) if (@tosyslog && $sysLog && ($CanUseSyslog || ($sysLogPort && $sysLogIp)));
    $MainThreadLoopWait = 1;
}

我非常抱歉，但我不知道perl。这里的错误在哪里？

完整的assp.pl位于http://sourceforge.net/projects/assp/files/ASSP%20V2%20multithreading/2.3.3%2013217/ASSP_2.3.3_13217.zip

Answer 1

此错误通常表示您已将非ASCII字符输出到文件句柄（例如STDOUT）到文件句柄，而不是期望它。

快速而肮脏的修复方法是将no warnings 'utf8';添加到违规打印语句上方的行。正确的解决方案是确保以正确的模式打开文件句柄。

Answer 2

My answer here将解释正在发生的事情。

我认为只是关闭警告（正如您已接受的答案所示）是一个非常好的解决方案。您应该确保输出文件句柄正在使用您正在使用的输出编码中的数据。

如果你总是在处理UTF8输出，那么-C命令行开关是一种快速简便的方法，可以将标准文件句柄（STDIN，STDOUT和STDERR）设置为UTF8（详见perldoc perlrun）。但看起来你有一个名为$ConsoleCharset的变量，它包含预期输出编码的名称。因此，您可以使用binmode函数将STDOUT设置为正确的编码。

binmode STDOUT, ":encoding($ConsoleCharset)";

Perl中的字符集支持是一个复杂但重要的领域。只是忽略错误只是为未来储存更多的痛苦。

sub main :: mlogWrite在第30,32行（ASSP）打印的宽字符

2 个答案: