In perl I want change the tag content(firstclip) to secondclip in my existing xml file

Question

<?xml version="1.0"?>
<root>
<Arguments>

<apkName>Player
    <testUseCase>PlayVideo</testUseCase>
    <id>1</id>
    <clipName>firstclip</clipName>
</apkName>
</Arguments>

</root>

I tried this code: but its not working and its keeping player name in new tag with name with content and order also changing ..

use XML::Simple;

my $xml_file = "test.xml";

my $xml = XMLin(
    $xml_file,  
    KeepRoot => 1,
    ForceArray => 1,
)

$xml->{root}->[0]->{Arguments}->[0]->{apkName}->[0]->{clipName}->[0] = 'secondclip';
XMLout(
    $xml,
    XMLDecl =>1,
    KeepRoot => 1   ,
    NoAttr => 1,
    OutputFile => $xml_file,
);

score 1 · Answer 1 · edited May 23 '17 at 12:01

1

Don't use XML::Simple:

#!/usr/bin/env perl
use strict;
use warnings;

use XML::Twig;

#parse your XML.
my $twig = XML::Twig -> new -> parsefile ( 'your_file.xml' );
#search for, and modify 'clipName' nodes containing the text 'firstclip'. 
$_ -> set_text('secondclip') for $twig -> findnodes('//clipName[string()="firstclip"]');

$twig -> set_pretty_print('indented');
$twig -> print;

Although are you sure apkName actually looks like that? It seem odd that the 'close' tag would be where it is.

To rewrite your existing file - XML::Twig has a parsefile_inplace mechanism, but I'd suggest it's overly complicated for what you're trying to do, and instead you just want to

open ( my $output, '>', 'output.new.xml' ) or die $!;
print {$output} $twig -> sprint;

edited May 23 '17 at 12:01

Community

1
1

answered Dec 08 '16 at 13:25

Sobrique

52,974
7
60
101

Ya its not writing to the existing xml it only printing the data i want to write to existing xml after modification – Shashi Dec 08 '16 at 13:32
So open a filehandle, write `$twig -> sprint` to it. That's the easy part. – Sobrique Dec 08 '16 at 13:37
if i want to change the clipname tag content with out parsing text to that like <\clipname> i want pass some content to that ? – Shashi Dec 08 '16 at 13:45
Sorry, I don't understand the question. – Sobrique Dec 08 '16 at 13:50

In perl I want change the tag content(firstclip) to secondclip in my existing xml file

1 Answers1