Creating New xml

Hi All ,

I have a simple code where i am able to add node and delete a node but only problem is that i am not able to modify the real xml

for example here , Test.xml is being read and modified but when i go to real file it is still the same so how do i really modify the real file

CODE :

my $parser=new XML: Smiley Very Happy

OM:

arser;
my $xml_string = "Test.xml";
my $xml ="Test.xml";
my $doc=$parser->parsefile($xml);
my $things = $doc->getElementsByTagName ("Things")->[0];

my $newthing = $doc->createElement('Thing');
$things->appendChild($newthing);

my $badthings = $doc->getElementsByTagName ("BadThing");

foreach $badthing ( @{$badthings} )
{
$doc->getDocumentElement()->removeChild($badthing);
}

print $doc->toString();

Please any advice how to do the changes to the real file...

Find more posts tagged with

Comments

ISCBorisB

. . .
print $doc->toString();
. . .
Please any advice how to do the changes to the real file...

Perhaps by printing to "real" File instead of STDOUT?

mart2001

Try to open a filehandle for writing, then write to that filehandle

open (FH,>"file.xml") || die "Can't open file: $!\n";
print FH $doc->toString();
close (FH);

Hi All ,

I have a simple code where i am able to add node and delete a node but only problem is that i am not able to modify the real xml

for example here , Test.xml is being read and modified but when i go to real file it is still the same so how do i really modify the real file

CODE :

my $parser=new XML:OM:arser;
my $xml_string = "Test.xml";
my $xml ="Test.xml";
my $doc=$parser->parsefile($xml);
my $things = $doc->getElementsByTagName ("Things")->[0];

my $newthing = $doc->createElement('Thing');
$things->appendChild($newthing);

my $badthings = $doc->getElementsByTagName ("BadThing");

foreach $badthing ( @{$badthings} )
{
$doc->getDocumentElement()->removeChild($badthing);
}

print $doc->toString();

Please any advice how to do the changes to the real file...