perl 连接oracle 配置

1.tnsnames.ora 配置

# tnsnames.ora Network Configuration File: D:appxl186023product12.1.0dbhome_1networkadmintnsnames.ora

# Generated by Oracle configuration tools.


ORACLR_CONNECTION_DATA =
? (DESCRIPTION =
? ? (ADDRESS_LIST =
? ? ? (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1521))
? ? )
? ? (CONNECT_DATA =
? ? ? (SID = CLRExtProc)
? ? ? (PRESENTATION = RO)
? ? )
? )


ORCL =
? (DESCRIPTION =
? ? (ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))
? ? (CONNECT_DATA =
? ? ? (SERVER = DEDICATED)
? ? ? (SERVICE_NAME = orcl.TD.TERADATA.COM)
? ? )
? )

---------------------------------------------------------------------------

2. listen.ora 配置

# listener.ora Network Configuration File: D:appxl186023product12.1.0dbhome_1networkadminlistener.ora
# Generated by Oracle configuration tools.


SID_LIST_LISTENER =
? (SID_LIST =
? ? (SID_DESC =
? ? ? #(SID_NAME = CLRExtProc)
? ? ? (SID_NAME = orcl)
? ? ? (ORACLE_HOME = D:appxl186023product12.1.0dbhome_1)
? ? ? #(PROGRAM = extproc)
? ? ? (ENVS = "EXTPROC_DLLS=ONLY:D:appxl186023product12.1.0dbhome_1binoraclr12.dll")
? ? )
? )


LISTENER =
? (DESCRIPTION_LIST =
? ? (DESCRIPTION =
? ? ? #(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC1521))
? ? ? (ADDRESS = (PROTOCOL = IPC)(KEY = orcl))
? ? ? (ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))
? ? )
? )

--------------------------------------------------------------------------------------

3.perl 脚本写法

#! /usr/bin/perl use strict; use warnings; use DBI; my $dbname="orcl"; my $user="system"; my $passwd="000000"; my $dbh=""; #$dbh = DBI->connect('dbi:Oracle:',q{system/000000@(DESCRIPTION = # ? ?(ADDRESS = (PROTOCOL = TCP)(HOST = WCNXL186023-5HH)(PORT = 1521)) # ? ?(CONNECT_DATA = # ? ? ?(SERVER = DEDICATED) # ? ? ?(SERVICE_NAME = orcl.TD.TERADATA.COM) # ? ?)},""); $dbh=DBI->connect("dbi:Oracle:localhost/orcl",$user,$passwd)? or die "can't connect to database ". DBI->errstr; # my $sth=$dbh->prepare("select * from stu_1"); $sth->execute; while (my @recs=$sth->fetchrow_array) { print $recs[0].":".$recs[1]."n"; } $dbh->disconnect;