#!/usr/bin/perl
# Compare two schemas or tables for names, types and length.

use v5.10;
no strict;


my %DS1=( PERL => [
            {TABLES=>{ TABSCHEMA=>"VARCHAR(128)", TABNAME=>"VARCHAR(128)", }}, # Tables and Columns are names of the tables.
            {COLUMNS=>{ TABSCHEMA=>"VARCHAR(128)", TABNAME=>"VARCHAR(128)", COLNAME=>"VARCHAR(128)", PARTKEYSEQ=>"SMALLINT", }}
               ]
      );

my %DS2=( PERL => [
            {TABLES=>{ TABSCHEMA=>"VARCHAR(256)", TABNAME=>"VARCHAR(128)", }}, # Tables and Columns are names of the tables.
            {COLUMNS=>{ TABSCHEMA=>"VARCHAR(256)", TABNAME=>"VARCHAR(128)", COLNAME=>"VARCHAR(128)", PARTKEYSEQ=>"SMALLINT", }}
               ]
      );

foreach my $schema1 (keys %DS1)
   {
   if (exists $DS2{$schema1})
      {
      say "Schema $schema1 exist in target.";
         foreach my $tables1_ref (@{$DS1{$schema1}})
            {
              foreach my $tables2_ref (@{$DS2{$schema1}})
                 {
                    foreach my $tabnames1 (keys %{$tables1_ref})
                       {
                       if (exists $tables2_ref->{$tabnames1})
                          {
                           say "$tabnames1 exists in target schema DS2";
                          }
                       else
                          {
                           say "$tabnames1 does not exist in target schema DS2";
                          }
                          say "\n"
                       }
                   }
            }
      } else {
      say "Schema $schema1 does not exist in target.";
      }
   }


##</code><code>##

Schema PERL exist in target.
TABLES exists in target schema DS2


TABLES does not exist in target schema DS2


COLUMNS does not exist in target schema DS2


COLUMNS exists in target schema DS2