To those who could help me with a problem connecting to an Oracle database on 
HP-UX from within a perl script that uses DBI
 
I have a perl program on a unix (HP-UX) host(A) running Oracle 8.1.6
In the program I am trying to connect to another unix (HP-UX) host(B) running 
Oracle 8.1.7 holding a table c1dwg.
 
The perl script that runs on host A contains these lines.
 
$ENV{'ORACLE_HOME'} = '/u01/app/oracle/product/8.1.6';
$ENV{'ORACLE_SID'} = 'CAD';
 
use DBI;
$dbh = DBI->connect('dbi:Oracle:Mycad4prod', '<user>', ''<password') || die 
"Could not connect: $DBI::errstr";
 
$stmt = "SELECT count(*) from c1dwg";
$sth = $dbh->prepare("stmt") || die "Could not Select: $DBI::errstr";
$sth->execute || die "Could not execute: $DBI::errstr";
 
$sth->finish;
 
The tnsnames.ora file on host A specifies 'Mycad4prod', specified in the above 
perl script, as below
 
MYCAD4PROD.coned.com =
 (DESCRIPTION =
   (ADDRESS_LIST =
     (ADDRESS = (PROTOCOL = TCP) (HOST = m020cad4) (PORT=1521))    )
    (CONNECT_DATA =
      (SERVICE_NAME = meta817.world)    )   )
 
In the above, m020cad4 is the name of host B that I am trying to connect to 
from A
 
ORA-12541: TNS: no listener (DBD ERROR:OCIServerAttach) at < the line number in 
the program that ran in to the problem
Could not connect: ORA-12541: TNS: no listener .. the same thing as above ..
 
I stopped and started the listener again but did not help
 
Could any one help, Please.
 
Thanks
 
 

Reply via email to