perl 连接oracle 配置

最新推荐文章于 2021-04-09 00:22:29 发布

原创最新推荐文章于 2021-04-09 00:22:29 发布 · 2.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#oracle #perl

数据库同时被 2 个专栏收录

15 篇文章

订阅专栏

编程_Perl

4 篇文章

订阅专栏

本文介绍Oracle数据库tnsnames.ora及listen.ora文件的配置方法，并提供了一个使用Perl脚本连接Oracle数据库并查询数据的示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;