mikeht has asked for the wisdom of the Perl Monks concerning the following question:
When running the examples in documentation:<?xml version="1.0" encoding="iso-8859-1" ?> <?meta name="GENERATOR" content="XML::Smart/1.6.9 Perl/5.008008 [cygwi +n]" ?>
Display is as follows:#!/usr/bin/perl use XML::Parser; use XML::Smart; use Data::Dumper; my $XML = new XML::Smart(q` <hosts> <server os="linux" type="redhat" version="8.0"> <address>192.168.0.1</address> <address>192.168.0.2</address> </server> <server os="linux" type="suse" version="7.0"> <address>192.168.1.10</address> <address>192.168.1.20</address> </server> </hosts> `,'smart'); $XML = $XML->cut_root ; ## Add a new server node: my $newsrv = { os => 'Linux' , type => 'Mandrake' , version => 8.9 , address => [qw(192.168.3.201)] # address => [qw(192.168.3.201 192.168.3.202)] } ; push(@{$XML->{server}} , $newsrv) ; $XML->save('newfile.xml') ;
How to get it as (so that the items are inserted same order as in $newsvr object and not sorted). Wisdoms welcome<?xml version="1.0" encoding="iso-8859-1" ?> <?meta name="GENERATOR" content="XML::Smart/1.6.9 Perl/5.008008 [cygwi +n]" ?> <hosts> <server os="linux" type="redhat" version="8.0"> <address>192.168.0.1</address> <address>192.168.0.2</address> </server> <server os="linux" type="suse" version="7.0"> <address>192.168.1.10</address> <address>192.168.1.20</address> </server> <server address="192.168.3.201" os="Linux" type="Mandrake" version=" +8.9"/> </hosts>
Thank you.<hosts> <server os="linux" type="redhat" version="8.0"> <address>192.168.0.1</address> <address>192.168.0.2</address> </server> <server os="linux" type="suse" version="7.0"> <address>192.168.1.10</address> <address>192.168.1.20</address> </server> <server os="Linux" type="Mandrake" version="8.9"> <address>192.168.3.201</address> </server> </hosts>
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: add/delete/update records to a xml file, suitable Perl Module?
by AltBlue (Chaplain) on Jul 30, 2008 at 03:35 UTC | |
|
Re: add/delete/update records to a xml file, suitable Perl Module?
by dHarry (Abbot) on Jul 30, 2008 at 12:29 UTC | |
|
Re: add/delete/update records to a xml file, suitable Perl Module?
by Bloodnok (Vicar) on Jul 30, 2008 at 11:03 UTC | |
by Jenda (Abbot) on Jul 30, 2008 at 15:23 UTC | |
by Bloodnok (Vicar) on Aug 06, 2008 at 10:05 UTC |