用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;  

 

转载于:https://blog.51cto.com/idata/943419

总结

以上是生活随笔为你收集整理的用perl访问Oracle的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。