1)在安装CPAN前,需要首先安装Oracle-Client。
2)安装好Oracle-Client后,要配置tnsnames.ora。用sqlplus测试一下确实可以访问到这个Oracle实例。
3)安装好DBI和DBD::Oracle后,perl访问Oracle的代码如下:
- #!/usr/bin/perl
-
- use DBI;
-
-
$dbh = DBI->connect("dbi:Oracle:myoradb", "idata", "123456") or die("DB connect error!\n");
-
-
$sql = "select * from dual";
-
-
$sth = $dbh->prepare($sql);
-
-
$sth->execute() or die("error!");
-
-
while(@rows = $sth->fetchrow_array)
-
- {
-
-
foreach(@rows)
-
- {
-
-
print "$_\t";
-
- }
-
-
print "\n";
-
- }
-
-
- $sth->finish;
-
- $dbh ->disconnect();
-
- exit 0;
本文转自 hexiaini235 51CTO博客,原文链接:http://blog.51cto.com/idata/943419,如需转载请自行联系原作者