连接oracle数据库的Perl脚本

Question

我是Perl编程和数据库连接的新手。有谁能让我知道一步一步的程序编写Perl脚本连接Oracle数据库。

My Perl version is:

这是perl 5，版本22,subversion 0 (v5.22.0)为mswin32 -x64构建的多线程
版权所有:拉里·沃尔
Perl只能在艺术许可或GNU通用公共许可证，可以在Perl 5源代码工具包中找到。

我试过了:

my $db = DBI->connect("dbi:Oracle:Local","SYSTEM","SYSTEM") or die print ("could not connect! $DBI::errstr n");

因为我不知道这个"dbi:Oracle:Local"是什么，所以我无法连接到数据库。

你能让我知道什么是dbi, Oracle, local。如果它是主机名和oracle数据库名，我如何在我的计算机中找到相同的。

我需要在Perl中设置任何ENV变量吗?如果是，我需要在哪里设置?

Answer 1

dbi:Oracle让DBI知道使用哪个驱动程序。如果你正在连接一个Oracle数据库，你永远不会改变这些。

Local可以是本地系统中实际的数据库名称，也可以是TNSNAMES.ORA中列出的名称。请替换要连接的本地数据库的名称。

下面两个参数是用户名和密码。

如果您是远程连接，或者需要做一些更复杂的事情，请查阅文档，或许多可用的指南之一。

Answer 2

my $db = DBI->connect("dbi:Oracle:Local","SYSTEM","SYSTEM");

"dbi"是字符串，
"Oracle"是驱动程序类型，
"local"是数据库名，
第一个"SYSTEM"是用户名，第二个是密码。

use DBI;
my $dbh = DBI->connect( "dbi:Oracle:databaseName", 'username', 'passwd' ) or die($DBI::errstr, "n");

首先阅读使用Perl DBI和SQL进行简单数据库访问的基本概念。