How can I escape text for an XML document in Perl?
Solution 1
I personally prefer XML::LibXML - Perl binding for libxml. One of the pros - it uses one of the fastest XML processing library available. Here is an example for creating text node:
use XML::LibXML;
my $doc = XML::LibXML::Document->new('1.0',$some_encoding);
my $element = $doc->createElement($name);
$element->appendText($text);
$xml_fragment = $element->toString();
$xml_document = $doc->toString();
And, never, ever create XML by hand. It's gonna be bad for your health when people find out what you did.
Solution 2
The XML::Simple escape_value could be used also, but use of XML::Simple is not recommended for new programs. See this post post 17436965.
A manual escape could be done using regex (copied from escape_value):
$data =~ s/&/&/sg;
$data =~ s/</</sg;
$data =~ s/>/>/sg;
$data =~ s/"/"/sg;
Solution 3
I am not sure why you need to escape text that is in an XML file. If your file contains:
<foo>x < y</foo>
The file is not an XML file despite the proliferation of angle brackets. An XML file must contain valid data meaning something like this:
<foo>x < y</foo>
or
<foo><![CDATA[x < y]]></foo>
Therefore, either:
You are not asking for escaping data in an XML file. Rather, you want to figure out how to put character data in an XML file so the resulting file is valid XML; or
You have some data in an XML file that needs to be escaped for some other reason.
Care to elaborate?
Solution 4
Use XML::Code.
From CPAN
XML::code escape()
Normally any content of the node will be escaped during rendering (i. e. special symbols like '&' will be replaced by corresponding entities). Call escape() with zero argument to prevent it:
my $p = XML::Code->('p');
$p->set_text ("—");
$p->escape (0);
print $p->code(); # prints <p>—</p>
$p->escape (1);
print $p->code(); # prints <p>&#8212;</p>
Solution 5
use XML::Entities;
my $a_encoded = XML::Entities::numify('all', $a);
Edit: XML::Entities only numifies HTML entities. Use HTML::Entities encode_entities($a) instead
tacoscool
Updated on April 26, 2020Comments
-
tacoscool about 4 years
Anyone know of any Perl module to escape text in an XML document?
I'm generating XML which will contain text that was entered by the user. I want to correctly handle the text so that the resulting XML is well formed.
-
jrockway almost 15 yearsPeople get mad when you remind them that their pseudo-XML is not actually real XML. It is amusing... and sad. Anyway, I upvoted you :)
-
tacoscool almost 15 yearsMy question would be #1. I didn't realise my question wasn't clear. I'll update the question to clarify.
-
tacoscool almost 15 yearsXML::Entities::numify seems only to convert named XML entities to numeric XML entities.
-
Updo2008 almost 15 yearsYou are right, my mistake. It is possible to use HTML::Entities and encode_entities instead.
-
tacoscool almost 15 yearsPoint taken. I shouldn't have created the XML by hand (they were simple XML documents when I started). I'll need to get around to rewriting those bits of code.
-
tacoscool almost 15 yearsI've accepted this answer not for the XML::LibXML recommendation (I used XML::Writer) but for pointing out that it is not good practice to create XML by hand.
-
nick over 10 yearsNice interface but too slow if you are writing millions of lines of XML.
-
zinking almost 10 yearshere my case is I am putting one XML inside another SOAP, and the soap parser have problem parsing the encapsulated message.
-
zinking almost 10 yearsthis naive implementation usually works, but for cases
a.txt = " a&b "
this wont work. -
muenalan about 9 yearsNote that XML::LibXML has non-perl dependencies and might not readily install on your platform.
-
arhak almost 8 yearsyou're missing
$doc->setDocumentElement($element);
if you want to get everything in -
mivk over 5 yearsUseless non-answer. Yes, the original question was not very clear, but it was still easy to guess, or you could have asked for clarification. I understnad your point, but it would come across better if it were with a useful answer (like most other answers on this page).
-
schulwitz over 3 years@zinking It seems to work fine for me using the string you provided.