Perl SOAP 服务器不再返回 base64

Question

几年前，我编写了一些在 Windows Server 2000 上运行的 Perl SOAP::Transport::HTML 服务器。在那台机器上，当服务的返回字符串包含可能破坏 soap 信封的字符时，perl 自动将字符串编码为 base64，然后由客户处理。

最近，脚本已移至运行 Server 2008 和 Perl 5.22.1 的机器上。该服务工作正常，除非返回字符串包含以下字符:字符串未编码且 SOAP 信封返回给客户端为空。

如何强制我的返回字符串为 base64？当然我可以使用 MIME::base64 对字符串进行编码，但是 SOAP 信封仍然指示类型文本并且在客户端没有正确转换。

use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI   
-> dispatch_to('MyMod')
-> handle;

Answer 1

我最终使用 MIME::base64 对字符串进行编码并欺骗响应，以便客户端将响应字符串解码为 base64，即使 soap 响应继续指示字符串类型。对我有用——对于这个非常具体的应用来说已经足够好了。

仍然找不到如何强制 perl 对响应进行编码。