老旧CMS(Bricolage)虚拟FTP上传报Wide character错误求助

问题分析 #

报错Wide character in syswrite源于Perl的核心机制：syswrite是字节流操作，要求传入原始字节字符串，但当前代码中$buffer是包含Unicode宽字符的字符串（因模板文件含UTF-8字符，读取时被解析为宽字符），两者不兼容导致传输失败。

补丁修复方案 #

针对Net::FTPServer的报错代码行，通过编码转换将宽字符转为UTF-8字节流，即可解决问题，具体步骤如下：

步骤1：引入Encode模块 #

打开/usr/lib64/perl5/site_perl/5.10.1/Net/FTPServer.pm，在文件开头的use语句块中添加：

use Encode qw(encode_utf8 is_utf8);

步骤2：修改syswrite代码行 #

定位到报错的5448行，将原代码：

$w = syswrite $sock, $buffer, $r - $n, $n;

替换为：

# 将宽字符编码为UTF-8字节流，非宽字符直接传输
$w = syswrite $sock, is_utf8($buffer) ? encode_utf8($buffer) : $buffer, $r - $n, $n;

方案说明 #

• is_utf8($buffer)：判断字符串是否为Perl内部标记的宽字符（Unicode字符串）
• encode_utf8($buffer)：将宽字符转换为UTF-8编码的字节流，符合syswrite的字节操作要求
• 该补丁仅修改数据传输的关键环节，不会影响Net::FTPServer的其他功能，适配含UTF-8字符的模板文件传输场景

内容的提问来源于stack exchange，提问作者MrBryan