XML::Simple add

[hakana]

I would like to add three different sets of info/data to a existing xml file:

<exec>
    <tc id=""></tc>
</exec>

To produce the following xml file:

<exec>
    <dut mac="" ip="" model="" firmware=""/>
    <tc id="" version="" date="" desription/objective="">
        <ts id="" desription="" date="" expected_result="" result=""/>
    </tc>
</exec>

The first <dut> will only be added once but there will be severeal instances of <tc> and every <tc> will have one or more <ts> What I got so far is that I have to start read the existing xml file. But wondering how I best insert the data to the xml file? And how often should the xml file be saved?

[andreas1234567]

I'd use XML::Simple. There are many examples on how to use it, a quick search will yield several (hopefully) relevant code samples, e.g.
• XML handling
• Adding elements using XML::Simple

[hakana]

Tried the following but it doesn't save to file, how should I do that?

my $conf = "/home/ember/devices/$Macaddress/$Macaddress.xml";

# create object
my $xml = XMLin ($conf, KeepRoot=>1,);

# insert element
$xml->{dut}{ipaddress} = "$ipaddress";
$xml->{dut}{macaddress} = "$Macaddress";
$xml->{dut}{model} = "$ProdShortName";
$xml->{dut}{frimware} = "$Firmware_Version";

# convert Perl array ref into XML document
print XMLout($xml);

[strat]

I would use XML::DOM for it, e.g.

use XML::DOM;

my $file = 'file.xml';
my $xmlParser = XML::DOM::Parser->new;
my $xmlDocument = $xmlParser->parsefile( $file ) or die ....;

# get parent node
my $nodes = $xmlDocument->getElementsByTagName( 'exec' );
my $parentNode = $nodes->item( 0 )
   or die "No node with id 0 available\n";

my $newChild = $xmlDocument->createElement('tc');
$newChild->setAttribute( id => '12346' );

$parentNode->appendChild( $newChild );

print $xmlDocument->toString; # debug
$xmlDocument->printToFile( $outputfilename) or die ...;

$xmlDocument->dispose;

(Not tested)