oracle perl

cpan에서 oracle 관련된 module source를 다운로드 받는다.

# perl -MCPAN -e shell

~~~ 처음 접속하니깐 어쩌구 저쩌구 많이 나온다.

cpan> get DBD::Oracle
cpan> quit

DBD::Oracle 관련된 소스가 ~/.cpan/build/DBD-Oracle-1.20/ 밑에 주르륵 생겼다.

perl Makefile.PL
make; make install

ex)

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("dbi:Oracle:host=host;sid=sid_value", $userid, $passwd);

my $sth = $dbh->prepare("SELECT * FROM tab") or die "Impossible de preparer la requette: " . $dbh->errstr;

$sth->execute() or die "Impossible d'exécuter la requette: " . $sth->errstr;

while ( my @data = $sth->fetchrow_array()) {
  print "$data[0]\t$data[1]\n";
}

if ($sth->rows == 0) {
  print "Table vide\n";
}

$sth->finish;
$dbh->disconnect;

정상적으로 table 정보를 출력하면 된다.