用于XML编码的perl一行程序

就像我可以使用

echo'one-two'| perl-MURI:：Escape-wlne'print uri\u Escape$"

对字符串进行url编码一样，我如何做类似的事情来将字符串编码为有效的XML？（我将始终在有效的URL上使用它，但我需要将它们包含在XML标记中）。

以下内容适用于XML文本：

 perl -MHTML::Entities -CS -pe'$_ = encode_entities($_, "&<")'

---

对于由分隔的XML属性，将执行以下操作：

 perl -MHTML::Entities -CS -pe'$_ = encode_entities($_, "&<'\''")'

如果该值可以在中用作由

“

分隔的属性值，则需要

 perl -pe"s/&/&/g s/'/'/g"

 perl -MHTML::Entities -CS -pe'$_ = encode_entities($_, q{&<>"'\''})'

 perl -pe's/&/&/g'

 perl -pe"s/&/&/g s/'/'/g"