How to change the value of a XML tag using Perl

Question

Let us assume that my XML file is like:

<? xml version="1.0" encoding="iso-8859-1" ?>
  <Body>
    <RequiredTag>
      #VALUE#
    </RequiredTag>
  </Body>

How can I change the value of the required tag using Perl?

E.g.:

$XmlHandle->{XML}->{Body}->{RequiredTag} = "RequiredValue";

mirod · Accepted Answer · 2014-05-13 09:22:26Z

6

With XML::Twig::

#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;

XML::Twig->new( twig_handlers => 
                  { RequiredTag => sub { $_->set_text( 'RequiredValue') } },
                pretty_print => 'indented',
              )
         ->parsefile( 'my_file.xml')
         ->print;

answered May 13, 2014 at 9:22

mirod

16.2k3 gold badges49 silver badges65 bronze badges

Sign up to request clarification or add additional context in comments.

6 Comments

Vinod Shunmugavel Over a year ago

1. Incase we have more than one "RequiredTag" which is nested under different parent tags. How can we differentiate ? 2. And, how to save the xml file after the modification ?

mirod Over a year ago

Have a look at the doc ;--) You can use a more complex expression in the handler trigger, like Body/RequiredTag, or /XML/Body/RequiredTag; and instead of print, you can use print_to_file( 'updated.xml')

Vinod Shunmugavel Over a year ago

print_to_file(FILE) will save the document once i close my Tkx application. Can we save the file dynamically and reload as my Tkx application still running ?

mirod Over a year ago

I am not sure what you mean here. print_to_file writes the document to disk as soon as you call the method. If you need the XML for the document, use sprint, which returns the XML string for the entire doc.

Vinod Shunmugavel Over a year ago

I am using GUI application developed in GUI. I pick a button so that it will write the value into the XML file. But the modification will taken into effect if and only if i close the application and re-launch it. With-Out closing the GUI application, the change is not reflected when i try to retrieve the value.. And when i check the documentation, In the doc, "print_to_file ($filename, %options)" %options are not described..

|

Collectives™ on Stack Overflow

How to change the value of a XML tag using Perl

1 Answer 1

6 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

6 Comments

Your Answer

Sign up or log in

Post as a guest

Related