Shell Programming and Scripting

TCP-5100 Sybase_5100
TCP-5600 Sybase_5600

:services (
				:AdminInfo (
					:chkpf_uid ("{A2F79713-B67D-4409-83A4-A90804E983E9}")
					:ClassName (rule_services)
				)
				:compound ()
				:op ()
				: (ReferenceObject
					:Name (TCP-5100)
					:Table (services)
					:Uid ("{A262C8D2-A98F-4AD4-9534-F52C1603475D}")
				)
				: (ReferenceObject
					:Name (TCP-5600)
					:Table (services)
					:Uid ("{6E2BFB06-5AF2-4F71-921C-924CD7074C21}")
				)
				: (ReferenceObject
					:Name (telnet)
					:Table (services)
					:Uid ("{97AEB3CF-9AEA-11D5-BD16-0090272CCB30}")

awk 'NR==FNR{A[$1]=$2; next} /:Name/ && $2 in A { $2="(" A[$2] ")"}1' X FS='[)(]' OFS="" Y

awk 'FNR==NR {T["(" $1 ")"]=$2; next} $2 in T {sub ($2,T[$2])} 1' X Y

Name (TCP-5600)

Name (Sybase_5600
)

:compound ()
				:op ()
				: (ReferenceObject
					:Name (MAS-PRS-Router-Zone_A-Primary)
					:Table (network_objects)
					:Uid ("{B3246F7C-D590-4417-8F9E-11340A8AD510}")
				)
				: (ReferenceObject
					:Name (CHK_MGMT-PR)
					:Table (network_objects)
					:Uid ("{317BF66F-A2C6-1B45-95DE-8C622D2062F7}")
				)

MAS-PRS-Router-Zone_A-Primary A_Primary
CHK_MGMT-PR Madras-MGMT_Primary
B3246F7C-D590-4417-8F9E-11340A8AD510 60146ACB-1B56-47F0-B14E-035EED4D81D6
317BF66F-A2C6-1B45-95DE-8C622D2062F7 27BECF52-869A-4127-9AC4-530EFD70D696

awk 'NR==FNR{A[$1]=$2; next} $2 in A{sub($2,A[$2])}1' X FS='[(]("{)?|(}")[)]' OFS="" Y

#!/usr/bin/perl

#shahid1632.pl
use strict;
use warnings;

# get 2 files from command line or exist
my $xfile = shift || die;
my $yfile = shift || die;

# load patterns from first file into a hash database
my %patterns;
open my $fh, '<', $xfile or die "Could not open $xfile: $!\n";
while(<$fh>){
    chomp;
    my ($key, $val) = split;
    $patterns{$key} = $val;
}
close $fh;

# act upon second file
open $fh, '<', $yfile or die "Could not open $yfile: $!\n";
while(<$fh>){
    # create alphanumeric with hyphens tokens from line
    my @blocks = /([\w-]+)/g;
    # the first token is Name or Uid, check for a possible swap of value
    if($blocks[1] and $blocks[0]=~/^Name|^Uid/){
       s/$blocks[1]/$patterns{$blocks[1]}/ if exists $patterns{$blocks[1]};
    }
    print;
}
close $fh;

cat file.x2
MAS-PRS-Router-Zone_A-Primary A_Primary
CHK_MGMT-PR Madras-MGMT_Primary
B3246F7C-D590-4417-8F9E-11340A8AD510 60146ACB-1B56-47F0-B14E-035EED4D81D6
317BF66F-A2C6-1B45-95DE-8C622D2062F7 27BECF52-869A-4127-9AC4-530EFD70D696

cat file.y2
:compound ()
                :op ()
                : (ReferenceObject
                    :Name (MAS-PRS-Router-Zone_A-Primary)
                    :Table (network_objects)
                    :Uid ("{B3246F7C-D590-4417-8F9E-11340A8AD510}")
                )
                : (ReferenceObject
                    :Name (CHK_MGMT-PR)
                    :Table (network_objects)
                    :Uid ("{317BF66F-A2C6-1B45-95DE-8C622D2062F7}")
                )

perl shahid1632.pl file.x2 file.y2
:compound ()
                :op ()
                : (ReferenceObject
                    :Name (A_Primary)
                    :Table (network_objects)
                    :Uid ("{60146ACB-1B56-47F0-B14E-035EED4D81D6}")
                )
                : (ReferenceObject
                    :Name (Madras-MGMT_Primary)
                    :Table (network_objects)
                    :Uid ("{27BECF52-869A-4127-9AC4-530EFD70D696}")
                )