Re^4: Strip XML document


go ahead... be a heretic
	PerlMonks

Re^4: Strip XML document

by corfuitl (Sexton)

on Dec 19, 2018 at 16:12 UTC ( #1227470=note: print w/replies, xml )

Need Help??

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]

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Node Status^?

node history
Node Type: note [id://1227470]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others lurking in the Monastery: (3)

As of 2021-03-05 04:23 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?