#! /u/ss/bin/perl -w

$pattern=qr/
(
^[^=|#]*=\s*\(DESCRIPTION\s*=\s*
\(ADDRESS_LIST\s*=\s*\(ADDRESS\s*=\s*
   \(COMMUNITY\s*=\s*[^)]*\)\s*\(PROTOCOL\s*=\s*TCP\)\s*
   \(HOST\s*=\s*[^)]*\)\s*\(PORT\s*=\s*\d+\)\s*\)\s*\)\s*
 \(CONNECT_DATA\s*=\s*\(SID\s*=\s*[^)]*\)\s*\)\s*
\)\s*
)
/x;
open FILE,"tnsnames.ora" or die $!;
{local $/=undef; $_ = <FILE>; }
close FILE;
print "This is tnsnames.ora\n";
@sections=/$pattern/g;
foreach $el (@sections) {
        print $el;
}
@sorted=sort @sections;
open FILE,"tns.log" or die $!;
{local $/=undef; $_ = <FILE>; }
close FILE;
@sections=/$pattern/g;
print "This is tns.log\n";
foreach $el (@sections) {
        print $el;
}
$x=pop @sorted || '';
print "This is $x\n";
$y=pop @sections || '';
print "This is y: $y\n";
while( $x || $y ){
   if( $x gt $y ){
       #print "missing from file1: $x\n";
       $x = pop @sorted || '';
   }elsif( $y gt $x ){
       #print "missing from file2: $y\n";
      $y = pop @sections || '';
   }else{
       $x = pop @sorted || '';
      $y = pop @sections || '';
   }
}