Help for this page

Select Code to Download


  1. or download this
    
my($q1,$a1) = split(/=/);
...
if ($preprod->{$env}{$database}{$rt} ne $prod->{$environment}{$dbname}
+{$q1) {
print "$preprod->{$env}{$database}{$rt}\n"
      }
  2. or download this
    #$a1 is /siebprod/db13/PRODDB/log2/ 
#$ap is /preprod/db12/PREPRODDB/log2/