blob: 7f692c170f65f231d1d2e12fdfbfbcc29ff632be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
use strict;
use XML::Simple;
use Data::Dumper;
$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
my $xml_gold = XMLin($ARGV[0]);
my $xml_new = XMLin($ARGV[1]);
my %match;
#print Dumper($xml_gold);
my % attr_values;
foreach my $id (sort (keys %{$xml_new->{targetInstance}})) {
my $aff_path=$xml_new->{targetInstance}->{$id}->{attribute}->{AFFINITY_PATH}->{default};
foreach my $attr (sort (keys %{$xml_new->{targetInstance}->{$id}->{attribute}})) {
if (ref($xml_new->{targetInstance}->{$id}->{attribute}->{$attr}->{default}) eq "HASH") {
if (defined($xml_new->{targetInstance}->{$id}->{attribute}->{$attr}->{default}->{field})) {
foreach my $field (sort (keys %{$xml_new->{targetInstance}->{$id}->{attribute}->{$attr}->{default}->{field}})) {
my $value=$xml_new->{targetInstance}->{$id}->{attribute}->{$attr}->{default}->{field}->{$field}->{value};
my $key=$aff_path." | ".$attr."_".$field;
$value=~s/\t//g;
$value=~s/\s//g;
$attr_values{$key}=$value;
}
}
} else {
my $value=$xml_new->{targetInstance}->{$id}->{attribute}->{$attr}->{default};
my $key=$aff_path." | ".$attr;
$value=~s/\t//g;
$value=~s/\s//g;
$attr_values{$key}=$value;
#print ">>>> $key = $value\n";
}
}
}
foreach my $id (sort (keys %{$xml_gold->{targetInstance}})) {
my $aff_path=$xml_gold->{targetInstance}->{$id}->{attribute}->{AFFINITY_PATH}->{default};
foreach my $attr (sort (keys %{$xml_gold->{targetInstance}->{$id}->{attribute}})) {
if (ref($xml_gold->{targetInstance}->{$id}->{attribute}->{$attr}->{default}) eq "HASH") {
if (defined($xml_gold->{targetInstance}->{$id}->{attribute}->{$attr}->{default}->{field})) {
foreach my $field (sort (keys %{$xml_gold->{targetInstance}->{$id}->{attribute}->{$attr}->{default}->{field}})) {
my $value=$xml_gold->{targetInstance}->{$id}->{attribute}->{$attr}->{default}->{field}->{$field}->{value};
$value=~s/\t//g;
$value=~s/\s//g;
my $key=$aff_path." | ".$attr."_".$field;
my $newval=$attr_values{$key};
$match{$key}=1;
if ($value ne $newval) {
printf("%100s | %s\n%100s | %s\n\n",$key,$value,"",$newval);
}
if ($key=~/PHYS_PATH/) {
# print "$key = $value\n";
}
}
}
} else {
my $value=$xml_gold->{targetInstance}->{$id}->{attribute}->{$attr}->{default};
$value=~s/\t//g;
$value=~s/\s//g;
my $key=$aff_path." | ".$attr;
my $newval=$attr_values{$key};
$match{$key}=1;
if ($value ne $newval) {
printf("%100s | %s\n%100s | %s\n\n",$key,$value,"",$newval);
}
if ($key=~/PHYS_PATH/) {
#print "$key = $value\n";
}
}
}
}
|
