Re: Perl script

since your output is already in two xml files, let's say File 1 is one.xml and File 2 is two.xml.
You can do the below. Also there are other ways also available eg. using File::Stat module as well.

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

my $filesize1 = 0;
my $filesize2 = 0;

if (-e 'one.xml'){
    $filesize1 = -s 'one.xml';
}

if ( -e 'two.xml'){
    $filesize2 = -s 'two.xml';
}

if ( $filesize1 == $filesize2) {
    print "File sizes are equal\n";
}else{
    print "File sizes are not equal\n";
}
[download]

Comment on Re: Perl script Download Code

Replies are listed 'Best First'.
Re^2: Perl script by marto (Cardinal) on Feb 07, 2017 at 10:41 UTC
OP is not trying to compare the size of two XML files, but the value of `dataSize` within two XML files. While it doesn't address this problem your example should also check that the files exist before allocating a size to them, e.g. `my $filesize2 = 0;`.	[reply] [d/l] [select]
Re^2: Perl script by Anonymous Monk on Feb 07, 2017 at 16:16 UTC
Checking -e first is a bad idea, as it leads to race conditions (the file might be deleted between the -e and -s). Just call -s. If it gives undef, the file doesn't exist. The OP is so vague that I'm not sure whether "datasize" is a field in the XML or the length of some part of the XML.	[reply]