perl dbi oracle

一、安裝dbi以及dbd-oracle module

方法一、搜尋下載，安裝安裝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資料庫中的資料進行操縱。