用perl访问Oracle-iData
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;
页:
[1]