Re: xml to xml converter


We don't bite newbies here... much
	PerlMonks

Re: xml to xml converter

by choroba (Cardinal)

on Nov 09, 2021 at 16:30 UTC ( [id://11138632]=note: print w/replies, xml )

Need Help??

in reply to xml to xml converter

This is how you can do it in XML::XSH2, a wrapper around XML::LibXML. You can experiment with the code in its xsh shell interactively.

my $out := create "TestCode" ;
set $out/TestCode/@version "10.0" ;
set $out/TestCode/TestCategory/@name "SmokeTest" ;

open file.xml ;
cp //Test[starts-with(@name, "CheckType_")][context/value = "XYZ"]
    into $out/TestCode/TestCategory ;

save :f output.xml $out ;
[download]

Or maybe, more simply, remove any Test that doesn't match the criteria:

open 1.xml ;
delete ( //Test[not(starts-with(@name, "CheckType_"))]
       | //Test[starts-with(@name, "CheckType_")][not(context/value = 
+"XYZ")]
       ) ;

save :f 1.out ;
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]