-----------------------------------------------------------
#!/usr/bin/perl
#
use warnings;
use strict;
#
        my ($db,$line,$home,$boot,$bkup,$dbName,@dbList,%dbHomeLst,%dbBkupLst,%dbBootLst,%dbLogLst);
        my $oratab = $ENV{'ORATAB'};
#
        open OT, "$ENV{'ORATAB'}"                                        or die "Oratab not accessible ($!)";
        while (defined ($line = <OT>)) {
                next if $line =~ /^#/;
                next if $line =~ /^\s*$/;
                chomp $line;
                ($dbName, $home, $boot, $bkup) = split ":", $line;
                push (@dbList,$dbName);
        print "DBNAME = $dbName\n";
                $dbHomeLst{$dbName} = $home;
                $dbBkupLst{$dbName} = $bkup;
                $dbBootLst{$dbName} = $boot;
                $dbLogLst{$dbName} = < $ENV{'DIAG'}/$dbName/log/alert_$dbName.log >;
}
        close OT;
#
# My Tests
#
foreach $db (@dbList) {
        print "Name = $db\n";
        print "Home = $dbHomeLst{$db}\n";
        print "Bkup = $dbBkupLst{$db}\n";
        print "Boot = $dbBootLst{$db}\n";
        print "DbLog = $dbLogLst{$db}\n";
        }
-------------------------------------------------------------

##</code><code>##

DBNAME = bea
DBNAME = busopp
DBNAME = cdms
DBNAME = cip
Name = bea
Home = /orasys00/app/oracle/product/9.2.0
Bkup = Y
Boot = Y
DbLog = /orasys00/app/dpc/bea/log/alert_bea.log
Name = busopp
Home = /orasys00/app/oracle/product/9.2.0
Bkup = Y
Boot = Y
Use of uninitialized value in concatenation (.) or string at listDbs.pl line 31.
DbLog = 
Name = cdms
Home = /orasys00/app/oracle/product/9.2.0
Bkup = Y
Boot = Y
DbLog = /orasys00/app/dpc/cdms/log/alert_cdms.log
Name = cip
Home = /orasys00/app/oracle/product/9.2.0
Bkup = Y
Boot = Y
Use of uninitialized value in concatenation (.) or string at listDbs.pl line 31.
DbLog = 

##</code><code>##

bea:/orasys00/app/oracle/product/9.2.0:Y:Y
busopp:/orasys00/app/oracle/product/9.2.0:Y:Y
cdms:/orasys00/app/oracle/product/9.2.0:Y:Y
cip:/orasys00/app/oracle/product/9.2.0:Y:Y