perl正则表达式[]for<>

像这样简单的东西对你有用吗?

$a=~y/<>/[]/;

y 执行一对一替换。 < 变成 [ 和 > 变成 ] . The perlop documentation 更详细地解释它。

如果只是更换 < 通过 [ 和 > 通过 ] 不适合你(可能是因为尖括号出现在某个你不想替换的CDATA部分中),那么你可能不会从这里的regex中获得太多的利润。正则表达式不适合与非正则语言(如XML)匹配。

你可能会逃避寻找 <([^>]+)> 把它换成 [$1] :

$subject =~ s/<([^>]+)>/[$1]/g;

用什么呢 Base64 相反?

有人会不会想起小海豹?

正如其他人在回答和评论中已经指出的那样,使用regex执行此操作 将 一旦您的数据变得足够复杂,包括 [ / ] 或 < / > 字符。一旦发生这种情况,任何一个简单的regex都将中断,您需要将它重新打包起来,希望它在再次中断之前能够缓慢地运行一段时间,或者使用真正的XML解析器和/或更好的SOAP实现重新实现它。

奥思,Leonbloy关于base64编码你的数据的建议实际上是一个很好的建议。我没有想到这一点,它应该和一个适当的SOAP实现一样有效,但需要注意的是,发送的数据会更大,如果需要进行线级调试,那么解释内容可能会更困难。