How to convert <,&,>,",' into XML <,&,>,&quot ..


more useful options
	PerlMonks

How to convert <,&,>,",' into XML <,&,>,&quot ..

by gasho (Beadle)

on Dec 16, 2008 at 20:09 UTC ( [id://730726]=perlquestion: print w/replies, xml )

Need Help??

gasho has asked for the wisdom of the Perl Monks concerning the following question:

Dear perl monks is there a perl module that can convert: <,&,>,",' into XML <,&,>," .. Thanks

$xml_native='<message>Hello World</message>';

$xml_converted->$xml_native;

print "$xml_converted"

#prints &lt;message&gt;Hello World&lt;/message&gt;
[download]

(: Life is short enjoy it :)

Comment on How to convert <,&,>,",' into XML <,&,>,&quot .. Download Code

Replies are listed 'Best First'.
Re: How to convert <,&,>,",' into XML <,&,>,&quot .. by ikegami (Patriarch) on Dec 16, 2008 at 20:20 UTC
`encode_entities($input, q{<>&"'})` from HTML::Entities will do the trick.	[reply] [d/l]
Re: How to convert <,&,>,",' into XML <,&,>,&quot .. by ccn (Vicar) on Dec 16, 2008 at 20:24 UTC
May be the following conversion will satisfy you `$xml_native =~ s/([^\w\s])/'&#'.ord($1).';'/ge;` [download]	[reply] [d/l]
Re: How to convert <,&,>,",' into XML <,&,>,&quot .. by ikegami (Patriarch) on Dec 16, 2008 at 20:21 UTC
Or you could build your XML using a module (XML::Writer, XML::Generator)	[reply]
Re: How to convert <,&,>,",' into XML <,&,>,&quot .. by zwon (Abbot) on Dec 16, 2008 at 20:20 UTC
~~Take a look onto XML::Entities.~~ Upd: Ignore this, it makes opposite thing as pointed by ikegami	[reply]
Re^2: How to convert <,&,>,",' into XML <,&,>,&quot .. by ikegami (Patriarch) on Dec 16, 2008 at 20:25 UTC
That doesn't encode.	[reply]