How to compare two XML files in perl?

[vibhakhushi]

How to compare two files in perl. I have two files as shown below.

First XML File
<Data>
<indep voltage>
  +1.20000000000e+01
</indep>
<indep current>
  +5.08474576271e-04
</indep>
</Data>
 
Second XML File:
<Data>
<indep voltage>
  +1.20000000000e+01
</indep>
<indep current>
  +5.08474576271e-04
</indep>
</Data>
 
 

I just want to confirm whether Data,indep tags are present with the specified attributes current and voltage.
I don't want whether the values are same.
I am confused to use the modules like XML::Simple and all.
Pls suggest me how to do that. I am newbie in perl. Pls provide me the good example also so that i can understand it.

[nithinpes]

To compare two XML documents and find the differences, you may make use of XML::SemanticDiff.

The documentation given in CPAN would be sufficient to start with the script. Try it out and if you face any problem, post it here.

[vibhakhushi]

Hello nithinpes, I am using XML::SemanticCompare to compare two files. I downloaded that module. But I'm getting the error
can't use an undefined value as an ARRAY reference at C:/Perl/site/lib/XML/SemanticCompare. I didn't get what it means. Can you put some light on that?
My Code is:

    $file1 = $args[0] . "\\test.xml";
    $file2 = $args[0] . "\\test1.xml";
 
    local $/;
    open(my $in, "<$file1") or die "File1: $!\n";
    my $xml1=<$in>;
    close($in);
    open($in, "<$file2") or die "File2: $!\n";
    my $xml2=<$in>;
    close($in);
 
     #open(my $out, ">output.txt") or die "Output: $!\n";
    # get the diffs
    my $diffs_arrayref = $x->diff($control_xml, $test_xml);
    print @$diffs_arrayref;
    #close($out);
 

[vibhakhushi]

Hello nithinpes. I rectified the error. But I don't know how to interpret the output of XML::SemanticCompare->diff() method. Pls put some light on that.