perl dbi oracle

一、安装dbi以及dbd-oracle module

方法一、www.cpan.org搜索下载，安装安装moudule的办法进行安装，windows平台可能需要c语言的编译器。

方法二、ppm

ppm>install dbi

.......

install dbd-oracle

......(这个过程可能很长，大概需要下载80M的dll）

二、编写程序测试是否安装ok

[@more@]

#!D:/Perl/bin/perl.exe -w
use strict;
use warnings;
use DBI;

my $user="system";

my $password="davidwang";

my $db="DAVIDWAN";

my $dbh=DBI->connect("dbi:Oracle:$db",$user,$password) || die "cannot connect to Oracle:$!n";

my $sth=$dbh->prepare("select USERNAME from dba_users");

$sth->execute();

my $line_queried_number=0;
while (my @lines=$sth->fetchrow_array())
{
print "@linesn";

$line_queried_number++;

}
$sth->finish();

$dbh->disconnect();

exit;

测试ok，输出了数据库中已有的用户名称。

说明安装ok，可以使用perl对oracle数据库中的数据进行操纵。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/47869/viewspace-836949/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/47869/viewspace-836949/