perl - 删除宽字符，Perl

Question

我正在尝试使用 perl 程序通过套接字发送字符串。我收到一条错误消息，指出文本包含宽字符，而套接字无法处理该问题。有没有办法:

A:通过套接字打开宽字符

或

B:从字符串中删除所有宽字符？

Answer 1

这意味着您正在尝试通过句柄发送文本，但句柄只能传输字节。您需要将文本序列化为字节。具体来说，您想要对文本进行编码。您可以使用Encode的编码函数

print $sock encode('some_encoding', $text);

或者你可以指示套接字为你做这件事

binmode $sock, ':encoding(some_encoding)';  # once
print $sock $text;

将 some_encoding 替换为套接字另一端所需的编码(例如 UTF-8)。