Parsing XML file and keeping the formatting tags

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

Hi PerlMonks

I have the following bilingual file and would like to extract the source and target nodes preserving its xml elements they might have as well as the line breaks. Could you please help me on that? I have no experience in xml parsing with Perl.

Here is a sample of my file:

<trans-unit id="1" maxbytes="14">
    <source xml:lang="en-US">Hello <x id=1/> world!
How are you?</source>
    <target xml:lang="ja-JP">Ciao<x id=1/> mondo!
Come stai?</target>
</trans-unit>
[download]

The expected result should be:

Hello <x id=1/> world! <lb/> How are you? || Ciao<x id=1/> mondo! <lb/> Come stai?

Thank you for your time!

Comment on Parsing XML file and keeping the formatting tags Download Code

Replies are listed 'Best First'.
Re: Parsing XML file and keeping the formatting tags by choroba (Archbishop) on Mar 22, 2018 at 16:49 UTC
Your input is not a valid XML. The `id=1` should be `id="1"`. After fixing that, the following seems to work for the input you showed: `#!/usr/bin/perl use warnings; use strict; use XML::LibXML; my $dom = 'XML::LibXML'->load_xml(location => 'file.xml'); for my $child ( @{ $dom->find('/trans-unit/[self::source \| self::target]') } ) { ( my $contents = join '', $child->childNodes ) =~ s,\n, <lb/> ,g; print $contents, $child->nodeName eq 'source' ? ' \|\| ' : "\n"; }` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7*2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^2: Parsing XML file and keeping the formatting tags by corfuitl (Sexton) on Mar 22, 2018 at 18:56 UTC
Thank you so much I added the " and it works :) However, I would like to have a deeper understanding of the code as I am not familiar. I will check it and will get back if any questions will arrise. Thanks	[reply]
Re^3: Parsing XML file and keeping the formatting tags by stevieb (Canon) on Mar 22, 2018 at 21:23 UTC
This is not a code problem, it is a problem with incorrect formatting of XML data. Like any structured data format, you must stick with the standard, and ensure it is correct. Perhaps some programs will work with bad XML/JSON etc data, but properly written applications and modules will not (and should not imho).	[reply]
Re: Parsing XML file and keeping the formatting tags by Your Mother (Archbishop) on Mar 22, 2018 at 15:55 UTC
Since your output still seems to be some flavor of SGML/XML but modified from the original I think what you might really be after is XSLT instead of XML handling. This may be something a bit out of reach for a beginner unless you have strong technical aptitude or programming experience. :( Sidenote: you should probably fire your Japanese translator. Seems she's been hitting the Campari a little hard. The packages I think you want are XML::LibXML and XML::LibXSLT. If you break it into small pieces and show what you've tried, you'll be able to get a ton of help here. There is also https://jobs.perl.com if you just want to hire someone to write the code for you.	[reply]
Re: Parsing XML file and keeping the formatting tags by Lotus1 (Vicar) on Mar 22, 2018 at 15:21 UTC
Have you tried any tutorials? There are many available on the web such as this http://perl-begin.org/uses/xml/ or http://grantm.github.io/perl-libxml-by-example/. Let us know if you get stuck.	[reply]
Re^2: Parsing XML file and keeping the formatting tags by corfuitl (Sexton) on Mar 22, 2018 at 15:26 UTC
Hi, Thank you for your reply. Yes, I tried a few weeks ago however it was not possible to preserve the inline tags and the line breaks.	[reply]


Keep It Simple, Stupid
	PerlMonks