What? Also, your XML isn't valid.
$ perl -MXML::Simple -MDDS -le" Dump( XMLin( shift ))" quat.xml $HASH1 = { JOB => { GROUP => 'xp_maint', NODEID => 'localhost', QUANTITATIVE => [ { NAME => 'QR1-INIT', QUANT => 1 }, { NAME => 'QR2-NODEID', QUANT => 1 }, { NAME => 'QR3-GROUP', QUANT => 1 } ], USE_INSTREAM_JCL => 0 } };
$ cat quat.xml <?xml version='1.0' encoding='ISO-8859-1' ?> <!DOCTYPE DEFJOB SYSTEM "/aa/em/ddd/e62xstf3/resource/defjob.dtd"> <DEFJOB > <JOB GROUP="xp_maint" NODEID="localhost" USE_INSTREAM_JCL="0" > <QUANTITATIVE NAME="QR1-INIT" QUANT="1" /> <QUANTITATIVE NAME="QR2-NODEID" QUANT="1" /> <QUANTITATIVE NAME="QR3-GROUP" QUANT="1" /> </JOB> </DEFJOB> $ perl -MXML::Simple -le " print XMLout( XMLin( shift ), qw! RootName +DEFJOB XMLDecl ! , qq[<?xml version=\x221.0\x22 encoding=\x22ISO-8859 +-1\x22 ?>\n<!DOCTYPE DEFJOB SYSTEM \x22/aa/em/ddd/e62xstf3/resource/d +efjob.dtd\x22>] )" quat.xml <?xml version="1.0" encoding="ISO-8859-1" ?> <!DOCTYPE DEFJOB SYSTEM "/aa/em/ddd/e62xstf3/resource/defjob.dtd"> <DEFJOB> <JOB GROUP="xp_maint" NODEID="localhost" USE_INSTREAM_JCL="0"> <QUANTITATIVE NAME="QR1-INIT" QUANT="1" /> <QUANTITATIVE NAME="QR2-NODEID" QUANT="1" /> <QUANTITATIVE NAME="QR3-GROUP" QUANT="1" /> </JOB> </DEFJOB>
1. What would be the best package to use? XML::SIMPLE?
It depends. You can't go wrong with XML::Twig, XML::Rules, XML::LibXML...
I was thinking to read the data into an array, then to see if any "QUANTITATIVE NAME" is used, if not I would create new ones with the GROUP / NODEID
Um, try it and you'll see why its a bad idea, but if you can make it work, or like suffering .... to each his own :)
In reply to Re: Reading and Manipulation XML Files
by Anonymous Monk
in thread Reading and Manipulation XML Files
by gizmojunkee
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |