用perl访问Oracle

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

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

３）安装好DBI和DBD::Oracle后，perl访问Oracle的代码如下：

1. #!/usr/bin/perl  
2.  
3. use DBI;  
4.  
5. $dbh = DBI->connect("dbi:Oracle:myoradb", "idata", "123456") or die("DB connect error!\n");  
6.  
7. $sql = "select * from dual";  
8.  
9. $sth = $dbh->prepare($sql);  
10.  
11. $sth->execute() or die("error!");  
12.  
13. while(@rows = $sth->fetchrow_array)  
14.  
15. {  
16.  
17.         foreach(@rows)  
18.  
19.         {  
20.  
21.                 print "$_\t";  
22.  
23.         }  
24.  
25.         print "\n";  
26.  
27. }  
28.  
29.  
30. $sth->finish;  
31.  
32. $dbh ->disconnect();  
33.  
34. exit 0;  

 

 本文转自 hexiaini235 51CTO博客，原文链接：http://blog.51cto.com/idata/943419，如需转载请自行联系原作者