[oracle@yyjk sbin]$ cat testrac.pl
use DBI;
$dbh2 = DBI->connect( "dbi:Oracle://10.2.120.185:1521/uacdb", uac, xx );
my $sql='select instance_name from v$instance';
my $sth1 = $dbh2->prepare($sql);
$sth1->execute();
my @res;
$num=$sth1->fetchrow_array();
print $num."\n";
[oracle@uacdb2 ~]$ cat /etc/hosts |grep -i uac
10.2.120.181 uacdb1
10.2.120.182 uacdb2
93.93.15.1 uacdb1-priv
93.93.15.2 uacdb2-priv
10.2.120.183 uacdb1-vip
10.2.120.184 uacdb2-vip
10.2.120.185 uacdb-scan
[oracle@uacdb1 ~]$ /sbin/ifconfig -a|grep 'inet addr'
inet addr:10.2.120.181 Bcast:10.2.120.255 Mask:255.255.255.0
inet addr:10.2.120.183 Bcast:10.2.120.255 Mask:255.255.255.0
inet addr:93.93.15.1 Bcast:93.93.15.255 Mask:255.255.255.0
inet addr:169.254.219.193 Bcast:169.254.255.255 Mask:255.255.0.0
inet addr:127.0.0.1 Mask:255.0.0.0
[oracle@uacdb2 ~]$ /sbin/ifconfig -a|grep 'inet addr'
inet addr:10.2.120.182 Bcast:10.2.120.255 Mask:255.255.255.0
inet addr:10.2.120.184 Bcast:10.2.120.255 Mask:255.255.255.0
inet addr:10.2.120.185 Bcast:10.2.120.255 Mask:255.255.255.0
inet addr:93.93.15.2 Bcast:93.93.15.255 Mask:255.255.255.0
inet addr:169.254.117.217 Bcast:169.254.255.255 Mask:255.255.0.0
inet addr:127.0.0.1 Mask:255.0.0.0
[grid@uacdb1 ~]$ crsctl stat res -t
--------------------------------------------------------------------------------
NAME TARGET STATE SERVER STATE_DETAILS
--------------------------------------------------------------------------------
Local Resources
--------------------------------------------------------------------------------
ora.DATA.dg
ONLINE ONLINE uacdb1
ONLINE ONLINE uacdb2
ora.FRA.dg
ONLINE ONLINE uacdb1
ONLINE ONLINE uacdb2
ora.LISTENER.lsnr
ONLINE ONLINE uacdb1
ONLINE ONLINE uacdb2
ora.OCRVT.dg
ONLINE ONLINE uacdb1
ONLINE ONLINE uacdb2
ora.asm
ONLINE ONLINE uacdb1 Started
ONLINE ONLINE uacdb2 Started
ora.gsd
OFFLINE OFFLINE uacdb1
OFFLINE OFFLINE uacdb2
ora.net1.network
ONLINE ONLINE uacdb1
ONLINE ONLINE uacdb2
ora.ons
ONLINE ONLINE uacdb1
ONLINE ONLINE uacdb2
ora.registry.acfs
ONLINE ONLINE uacdb1
ONLINE ONLINE uacdb2
--------------------------------------------------------------------------------
Cluster Resources
--------------------------------------------------------------------------------
ora.LISTENER_SCAN1.lsnr
1 ONLINE ONLINE uacdb2
ora.cvu
1 ONLINE ONLINE uacdb2
ora.oc4j
1 ONLINE ONLINE uacdb2
ora.scan1.vip
1 ONLINE ONLINE uacdb2
ora.uacdb.db
1 ONLINE ONLINE uacdb1 Open
2 ONLINE ONLINE uacdb2 Open
ora.uacdb.uacrac1.svc
1 ONLINE ONLINE uacdb2
ora.uacdb.uacrac2.svc
1 ONLINE ONLINE uacdb2
ora.uacdb1.vip
1 ONLINE ONLINE uacdb1
ora.uacdb2.vip
1 ONLINE ONLINE uacdb2
[oracle@uacdb1 ~]$ lsnrctl status
LSNRCTL for Linux: Version 11.2.0.4.0 - Production on 23-JAN-2019 10:27:48
Copyright (c) 1991, 2013, Oracle. All rights reserved.
Connecting to (ADDRESS=(PROTOCOL=tcp)(HOST=)(PORT=1521))
STATUS of the LISTENER
------------------------
Alias LISTENER
Version TNSLSNR for Linux: Version 11.2.0.4.0 - Production
Start Date 08-JAN-2019 21:29:09
Uptime 14 days 12 hr. 58 min. 39 sec
Trace Level off
Security ON: Local OS Authentication
SNMP OFF
Listener Parameter File /oracle/grid/network/admin/listener.ora
Listener Log File /oracle/grid/network/log/listener.log
Listening Endpoints Summary...
(DESCRIPTION=(ADDRESS=(PROTOCOL=ipc)(KEY=LISTENER)))
(DESCRIPTION=(ADDRESS=(PROTOCOL=tcp)(HOST=10.2.120.181)(PORT=1521)))
(DESCRIPTION=(ADDRESS=(PROTOCOL=tcp)(HOST=10.2.120.183)(PORT=1521)))
Services Summary...
Service "+ASM" has 1 instance(s).
Instance "+ASM1", status READY, has 1 handler(s) for this service...
Service "uacdb" has 1 instance(s).
Instance "uacdb1", status READY, has 1 handler(s) for this service...
The command completed successfully
[oracle@uacdb2 ~]$ lsnrctl status
LSNRCTL for Linux: Version 11.2.0.4.0 - Production on 23-JAN-2019 10:28:14
Copyright (c) 1991, 2013, Oracle. All rights reserved.
Connecting to (ADDRESS=(PROTOCOL=tcp)(HOST=)(PORT=1521))
STATUS of the LISTENER
------------------------
Alias LISTENER
Version TNSLSNR for Linux: Version 11.2.0.4.0 - Production
Start Date 20-NOV-2017 00:06:16
Uptime 429 days 10 hr. 21 min. 57 sec
Trace Level off
Security ON: Local OS Authentication
SNMP OFF
Listener Parameter File /oracle/grid/network/admin/listener.ora
Listener Log File /oracle/grid/network/log/listener.log
Listening Endpoints Summary...
(DESCRIPTION=(ADDRESS=(PROTOCOL=ipc)(KEY=LISTENER)))
(DESCRIPTION=(ADDRESS=(PROTOCOL=tcp)(HOST=10.2.120.182)(PORT=1521)))
(DESCRIPTION=(ADDRESS=(PROTOCOL=tcp)(HOST=10.2.120.184)(PORT=1521)))
Services Summary...
Service "+ASM" has 1 instance(s).
Instance "+ASM2", status READY, has 1 handler(s) for this service...
Service "uacdb" has 1 instance(s).
Instance "uacdb2", status READY, has 1 handler(s) for this service...
Service "uacrac1" has 1 instance(s).
Instance "uacdb2", status READY, has 1 handler(s) for this service...
Service "uacrac2" has 1 instance(s).
Instance "uacdb2", status READY, has 1 handler(s) for this service...
The command completed successfully
[oracle@yyjk sbin]$ perl testrac.pl
uacdb1
You have mail in /var/spool/mail/oracle
[oracle@yyjk sbin]$
[oracle@yyjk sbin]$ perl testrac.pl
uacdb1
[oracle@yyjk sbin]$ perl testrac.pl
uacdb2
[oracle@yyjk sbin]$ perl testrac.pl
uacdb2
[oracle@yyjk sbin]$ perl testrac.pl
uacdb1