modifying xml file and saving them in the same file using Perl and XML:Twig

92sai has asked for the wisdom of the Perl Monks concerning the following question:

Hi all, I am using PERL and XML::Twig I have made some changes in the xml file( changing the values of the tags). But i cannot write it in the same xml file. If i use parsefile_inplace() the whole xml file got empty. Please find the code below..


use XML::Twig;

my $twig= XML::Twig->new(
        pretty_print => 'indented',
        twig_handlers => {
            jdk => sub{ 
            $_->set_text( 'JDK 1.8.0_40' )
            },
            },
        );
$twig->parsefile_inplace( 'nightly.xml', 'bak.*' );
$twig->flush;
[download]

part of xml file

<jdk>JDK 1.7.0_40</jdk>
[download]

if i use flush command it gives the desired output on cmd... if i use parsefile_inplace command it is emptying the nightly.xml... if i just use parsefile the original file is intact without changing the value i want to change.. My requirement is to edit the value and save it in the same file Thanks in advance.

Comment on modifying xml file and saving them in the same file using Perl and XML:Twig Select or Download Code

Replies are listed 'Best First'.
Re: modifying xml file and saving them in the same file using Perl and XML:Twig by toolic (Bishop) on Apr 22, 2015 at 12:54 UTC
UPDATE: This has been cross-posted, and it looks like the solution is to use print(): http://stackoverflow.com/questions/29795171/modifying-xml-file-and-saving-them-in-the-same-file-using-perl-and-xmltwig#29796073 Ignore this... I looked at the tests on CPAN (http://cpansearch.perl.org/src/MIROD/XML-Twig-3.49/t/test_3_26.t), and they use flush(): `use warnings; use strict; use XML::Twig; my $twig = XML::Twig->new( pretty_print => 'indented', twig_handlers => { jdk => sub { $_->set_text('JDK 1.8.0_40')->flush(); }, }, ); $twig->parsefile_inplace( 'nightly.xml', '.bak' ); __END__ <jdk>JDK 1.8.0_40</jdk> <jdk>JDK 1.8.0_40</jdk>` [download] I got it to create a backup (nightly.xml.bak) properly, and the original nightly.xml file was modified, but it duplicates the line for me. I am using an older version of XML::Twig, 3.37. I didn't see any open bug reports on this topic.	[reply] [d/l]
Re^2: modifying xml file and saving them in the same file using Perl and XML:Twig by choroba (Cardinal) on Apr 22, 2015 at 15:33 UTC
Using XML::XSH2, a wrapper around XML::LibXML: `open nightly.xml ; xinsert text 'JDK 1.8.0_40' replace //jdk/text() ; save :b ;` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]