#!/usr/bin/perl --
use strict;
use warnings;
use XML::LibXML;
my $xmlin = q{
VM ISV branding information
Myprodoct-11.10
Some Company
11.10.0.24
11.10.0.24
http://www.hp.com
Application
4c555gh-67yh-49987c-a7ed-21345yght94b
another product UUID shubhra
71ab92ef-b47e-47ea-8e5a-0d76b70aacc4
333334444444444I-am-khan-product-RID
};
my $doc = XML::LibXML->new()->load_xml( string => $xmlin );
for my $node ( $doc->findnodes('//vadk:VendorUUID | //vadk:ProductRID | //Annotation') ){
print $node->nodePath,"\n";
$node->appendText(" ##6##6##6## ");
}
print $doc;
if(0)
{
##https://metacpan.org/module/XML::LibXML#ENCODINGS-SUPPORT-IN-XML::LIBXML
use autodie;
open my($outfh), '>:raw', 'outfile.xml';
$doc->toFH( $outfh );
close $outfh;
}
__END__
/ovf:Envelope/Section[1]/Annotation
/ovf:Envelope/Section[3]/vadk:VendorUUID[1]
/ovf:Envelope/Section[3]/vadk:VendorUUID[2]
/ovf:Envelope/Section[3]/vadk:ProductRID[1]
/ovf:Envelope/Section[3]/vadk:ProductRID[2]
I am a test application ##6##6##6##
VM ISV branding information
Myprodoct-11.10
Some Company
11.10.0.24
11.10.0.24
http://www.hp.com
Application
4c555gh-67yh-49987c-a7ed-21345yght94b ##6##6##6##
another product UUID shubhra ##6##6##6##
71ab92ef-b47e-47ea-8e5a-0d76b70aacc4 ##6##6##6##
333334444444444I-am-khan-product-RID ##6##6##6##