Re: XML replacenode

As posted your script returns:

Global symbol "$node_c" requires explicit package name (did you forget
+ to declare "my $node_c"?) at derp.pl line 13.
Execution of derp.pl aborted due to compilation errors.
[download]

Where possible please copy/paste rather than retype code. I've never used XML::LibXML (at least not that I can remember at this time of day), ~~but believe your example should look something like this~~:

use strict; use warnings; use XML::LibXML; print "Please specify node c content\n"; my $node_c = <STDIN>; chomp $node_c; my $template = "xx.xml"; my $parser = XML::LibXML->new(); my $doc = $parser->parse_file($template); my($object0) = $doc->findnodes("/header/id/c/text()"); $object0->setData( $node_c ); print $doc;
[download]

~~Output:~~

Please specify node c content derp <?xml version="1.0"?> <header> <id x_id="1"> <a/> <b/> <c>derp</c> </id> </header>
[download]

Update: Correct use of XML::LibXML here

Or using Mojo::DOM:

#!/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;
[download]

Output:

Current value of c: NA
Please specify node c content: 
derp
<header>
   <id x_id="1">
      <a />
      <b />
      <c>derp</c>
   </id>
</header>
[download]

Comment on Re: XML replacenode Select or Download Code

Replies are listed 'Best First'.
Re^2: XML replacenode by michael99 (Acolyte) on Apr 16, 2020 at 01:04 UTC
Hi, I have not try on your code but from the output you posted, it seems remove and from the original file. Is there anyway to retain empty node a and b?	[reply]
Re^3: XML replacenode by marto (Cardinal) on Apr 16, 2020 at 07:12 UTC
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; [download] 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>` [download]	[reply] [d/l] [select]


No such thing as a small change
	PerlMonks