Re^2: Edit XML File in perl

Thanks for your response.
But what you have mentioned are Xml parsers (used to read a parser).
But i need to edit a XML file. I dont want to read it using a parser and write it to some other file using a XML writer. as that would certaily take time.
Do we have XML editors like i would read a XML and at a particular point add or remove the required tags.

Comment on Re^2: Edit XML File in perl

Replies are listed 'Best First'.
Re^3: Edit XML File in perl by keszler (Priest) on Dec 08, 2009 at 06:23 UTC
These can do that. For example: #!/usr/bin/perl use strict; use warnings; use XML::Smart; my $xmlstring = q{ <root> <member id="1" name="member1"> <ips> <ip1> <from></from> <to></to> </ip1> <ip2> <from></from> <to></to> </ip2> </ips> </member> </root>}; my $XML = XML::Smart->new($xmlstring); $XML->{root}{member}{ips}{ip1}{from} = 'I am IPS IP1 From'; print $XML->data(noheader => 1); __END__ <root> <member id="1" name="member1"> <ips> <ip1> <from>I am IPS IP1 From</from> <to/> </ip1> <ip2> <from/> <to/> </ip2> </ips> </member> </root> [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Edit XML File in perl
by keszler (Priest) on Dec 08, 2009 at 06:23 UTC

#!/usr/bin/perl
use strict;
use warnings;
use XML::Smart;
my $xmlstring = q{
<root>
 <member id="1" name="member1">
  <ips>
   <ip1>
    <from></from>
    <to></to>
   </ip1>
   <ip2>
    <from></from>
    <to></to>
   </ip2>
  </ips>
 </member>
</root>};
my $XML = XML::Smart->new($xmlstring);
$XML->{root}{member}{ips}{ip1}{from} = 'I am IPS IP1 From';
print $XML->data(noheader => 1);
__END__

<root>
  <member id="1" name="member1">
    <ips>
      <ip1>
        <from>I am IPS IP1 From</from>
        <to/>
      </ip1>
      <ip2>
        <from/>
        <to/>
      </ip2>
    </ips>
  </member>
</root>
[download]

[reply]
[d/l]