答：通过插座打开宽字符
要么
B：从字符串中删除所有宽字符？
print $sock encode('some_encoding',$text);
或者您可以指示套接字为您执行此操作
binmode $sock,':encoding(some_encoding)'; # once print $sock $text;
将some_encoding替换为套接字另一端所期望的编码(例如UTF-8).
