http://www.perlmonks.org?node_id=1227470


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.

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;
    poj