Re^4: Strip XML document

in reply to Re^3: Strip XML document
in thread Strip XML document

Thanks for your efforts

This works fine, however, how is it possible to export the formatting tags for the <seg>? I mean, the and other similar tags may appear.

Comment on Re^4: Strip XML document

Replies are listed 'Best First'.
Re^5: Strip XML document by poj (Abbot) on Dec 19, 2018 at 17:22 UTC
try `# ($props{$lang} = $tuv->findvalue('seg')) =~ s{\n}{<lb/>}g; my $seg = $tuv->findnodes('seg')->get_node(1); #first $props{$lang} = join '',map {$_->toString} $seg->childNodes(); $props{$lang} =~ s{\n}{<lb/>}g;` [download] poj	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: Strip XML document
by poj (Abbot) on Dec 19, 2018 at 17:22 UTC

try

# ($props{$lang} = $tuv->findvalue('seg')) =~ s{\n}{<lb/>}g;
my $seg  = $tuv->findnodes('seg')->get_node(1); #first
$props{$lang} = join '',map {$_->toString} $seg->childNodes();
$props{$lang} =~ s{\n}{<lb/>}g;
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom