Convert word special characters

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

Hi All,
I want to convert word document to xml and the important thing is i need to convert all special charcter to unicode characters.
Please suggest how can i achieve this?

Input:

Sample data & and text for some <conversion> "text".

output:
Sample data &#x00026; and text for some &#x0003C;conversion&#x0003E; &
+#x0201C;text&#x0201D;.
[download]

Comment on Convert word special characters Download Code

Replies are listed 'Best First'.
Re: Convert word special characters by marto (Cardinal) on Mar 11, 2010 at 12:38 UTC
Are you automating word using Win32::OLE as you were in Word file save as xml file?	[reply]
Re: Convert word special characters by almut (Canon) on Mar 11, 2010 at 15:47 UTC
In case it should turn out that Word can't encode the XML itself, you could use `use HTML::Entities qw(encode_entities_numeric); # unicode/character string my $in = qq(Sample data & and text for some <conversion> \x{201C}text\ +x{201D}.); print encode_entities_numeric($in); __END__ Sample data & and text for some <conversion> “te +xt”.` [download] (that is, if you can get away without the (IMHO superfluous) leading zeros in the hex values...)	[reply] [d/l]
Re: Convert word special characters by rovf (Priest) on Mar 11, 2010 at 14:48 UTC
Unicode::CharName? -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l]