![Rolling Eyes :roll:](./images/smilies/icon_rolleyes.gif)
Thnxs,
Charlie
Moderators: chulett, rschirm, roy
Code: Select all
alias -x getdsstages='sed -n "/OrchestrateCode =+=+=+=/,/=+=+=+=/p"'
Code: Select all
getdsstages DSXFileVersion1 > old
getdsstages DSXFileVersion2 > new
diff old new
Code: Select all
[mysuerid@myserver 16394]: cat getdsbuildop
#!/usr/bin/perl
$last_rec = undef;
$ind1 = 0;
$ind2 = 0;
$found = 0;
LINE: while(<>) {
if (/CUSTOMPXBUILD/) {
$last_rec = "$_";
$ind1 = 1;
} elsif (/Definition/ && $ind1 == 1) {
# Right occurence, make updates then reset indicator
print "$last_rec";
print "$_";
$ind2 = 1;
} elsif (/InputLinkOrder/) {
print "$_";
$ind1 = 0;
$ind2 = 0;
} elsif ($ind2 == 1) {
print "$_";
}
}
Code: Select all
getdsbuildop DSXFileVersion1 > old
getdsbuildop DSXFileVersion2 > new
diff old new