Shell Programming and Scripting

$cmd = "select distinct instance,status from gv\$thread where instance <> '$oracle_server'";
			
$sth = execquery_I( $dbproc, $cmd );

DBD::Oracle::db::prepare(/opt/dba/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux/DBD/Oracle.pm:262):
262:            DBD::Oracle::st::_prepare($sth, $statement, @attribs)
263:                or return undef;
  DB<2> s
DBD::Oracle::db prepare failed: ORA-00942: table or view does not exist (DBD ERROR: error possibly near <*> indicator at char 46 in 'select distinct instance_name,status from sys.<*>gv$instance where instance_name <> 'irmd411'') [for Statement "select distinct instance_name,status from sys.gv$instance where instance_name <> 'test'"] at /opt/dba/oraadmin/tools/ExecsqlI.pm line 146.
 at /opt/dba/oraadmin/tools/ExecsqlI.pm line 146
        eval {...} called at /opt/dba/oraadmin/tools/ExecsqlI.pm line 146
        ExecsqlI::execquery_I('DBI::db=HASH(0xbf5bbf0)', 'select distinct instance_name,status from sys.gv$instance whe...') called at ./check_server_asys.pl line 1032
ExecsqlI::execquery_I(/opt/dba/oraadmin/tools/ExecsqlI.pm:147):
147:            if ($@ =~ /Can't call method "[^"]+" .* package / or
148:                    $@ =~ /Can't locate object method "[^"]+" via package/)

my $db=DBI->connect("dbi:Oracle:servername",$id,$password) || die "cant connect\n";
my $select = "select * from tablename";
my $sth= $db->prepare($select);
$sth->execute();

while ( my @row = $sth->fetchrow_arrray() ) {
 print "@row \n";
}
$db->disconnect if defined ($db);