Shell Programming and Scripting

<test>
    <test1>
        <file name ="xyz">value1</file>
        <file name ="abc">value2</file>
        <file name ="kkk">value3</file>
   </test1>
        <folder name="ggg"> 
            <new>
           <file name="ppp"> value321 </file>
            </new>
        </folder>
            
</test>

<test>
   <test1>
        <file name ="ddd">value5</file>
        <file name ="xyz">value0</file>
        <file name ="abc">value2</file>
        <file name ="mmm">value6</file>
   </test1>
</test>

<test>
   <test1>
        <file name ="ddd">value5</file>
        <file name ="xyz">value1</file>
        <file name ="abc">value2</file>
        <file name ="kkk">value3</file>
        <file name ="mmm">value6</file>
   </test1>
        <folder name="ggg"> 
            <new>
           <file name="ppp"> value321 </file>
            </new>
        </folder>
</test>

perl -MCPAN -e 'install XML::Merge'

#! /usr/bin/perl

use XML::Merge;

my $merge_obj = XML::Merge->new(
        'filename' => 'master.xml',
        'conflict_resolution_method' => 'last-in_wins'
);

$merge_obj->merge('filename' => 'upgrade.xml');
$merge_obj->tidy();
$merge_obj->write();