Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^3: XML replacenode

by marto (Cardinal)
on Apr 16, 2020 at 07:12 UTC ( [id://11115608]=note: print w/replies, xml ) Need Help??


in reply to Re^2: XML replacenode
in thread XML replacenode

That is valid XML for a node with no content or attributes.

#!/usr/bin/perl use strict; use warnings; use feature 'say'; use Mojo::DOM; my $xml = '<header> <id x_id="1"> <a></a> <b></b> <c>NA</c> </id> </header>'; my $dom = Mojo::DOM->new->xml(1)->parse( $xml ); say 'Current value of c: ' . $dom->at('id > c')->text; say 'Please specify node c content: '; chomp( my $node_c = <STDIN> ); $dom->at('id > c')->content( $node_c ); say $dom->content; say 'add content to nodes a & b'; $dom->at('id > b')->content( 'Foo' ); $dom->at('id > a')->content( 'Bar' ); say $dom->content;

Output:

Current value of c: NA Please specify node c content: derp <header> <id x_id="1"> <a /> <b /> <c>derp</c> </id> </header> add content to nodes a & b <header> <id x_id="1"> <a>Bar</a> <b>Foo</b> <c>derp</c> </id> </header>

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11115608]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (1)
As of 2024-04-25 02:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found