perl 连接oracle 配置

来源：互联网发布：js不等于怎么写编辑：程序博客网时间：2024/05/21 18:32

1.tnsnames.ora 配置

# tnsnames.ora Network Configuration File: D:\app\xl186023\product\12.1.0\dbhome_1\network\admin\tnsnames.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:\app\xl186023\product\12.1.0\dbhome_1\network\admin\listener.ora
# Generated by Oracle configuration tools.

SID_LIST_LISTENER =
(SID_LIST =
(SID_DESC =
#(SID_NAME = CLRExtProc)
(SID_NAME = orcl)
(ORACLE_HOME = D:\app\xl186023\product\12.1.0\dbhome_1)
#(PROGRAM = extproc)
(ENVS = "EXTPROC_DLLS=ONLY:D:\app\xl186023\product\12.1.0\dbhome_1\bin\oraclr12.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;

0 0