Re^14: Compare 2 XML files

Try

#!perl
use strict;
use Data::Dump 'pp';

# test data
my @AoH = map{ 
   { line => $_, 
     eventid => int rand(2000)
   } } 1..8;

my $max = 6;
for (@AoH){
  if ($_->{'line'} > $max){
    $_->{'eventid'} = '';
  }
}
for (@AoH+1..$max){
  push @AoH, { 
    line    => $_,
    eventid => '' 
  };
}
pp \@AoH;
[download]

poj

Comment on Re^14: Compare 2 XML files Download Code

Replies are listed 'Best First'.
Re^15: Compare 2 XML files by snehit.ar (Beadle) on Jul 13, 2017 at 18:05 UTC
@poj, Thank you so much for sample code... same i have applied in my program ...	[reply]