用perl访问Oracle

1）在安装CPAN前，需要首先安装Oracle-Client。

２）安装好Oracle-Client后，要配置tnsnames.ora。用sqlplus测试一下确实可以访问到这个Oracle实例。

３）安装好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;