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