PerlからOracleへのアクセス方法

Oracle perl

動作確認OSはSolaris 9、オラクルのバージョンはOracle 10gである。

#!/usr/local/bin/perl -w
use DBI;

$oracle_sid = "[接続するDBのSID]";
$user       = "scott";
$password   = "tiger";

$db = DBI->connect("dbi:Oracle:$oracle_sid",
        $user,
        $password,
        {AutoCommit => 0}
        ) || die $db->errstr;

my $searchStatement = $db->prepare(
    "SELECT * FROM EMP"
) or die $db->errstr;
$searchStatement->execute();

while(@resultArray = $searchStatement->fetchrow_array) {
    print $resultArray[0]."\t";
    print $resultArray[1]."\n";
}
$db->disconnect || die $db->errstr;