Casual Developers Notes

PerlにはDBIという便利なモジュールがあり、そのモジュールを使えばOracleのDBにアクセスることは簡単です。ただ、開発環境というのは残念ながら自分の自由になるとは限りません。マイグレーションの案件に関わったことがある人なら痛いほど分かることでしょう。

今回は、DBIをあえて使わず、SQLplusを使ってDBにアクセスする方法を紹介します。

さっそくですが、以下のように書くと、PerlからSQLPlusを呼び出せます。

# 実行するクエリー
my @querys = ("SELECT * FROM dba_users;", "SELECT * FROM all_users;");

# SQLPlusの設定
my $option = '-s'
my $login = "$sqlplus_username/$sqlplus_password@$sqlplus_hostname";

# ログイン
open my $sqlplus, "| sqlplus $option $login" or die("Exception : Can't login SQLPlus.$!");
# SQLPlus実行
foreach my $query @querys {
    print $sqlplus $query , "n";
}
# ログアウト
close $sqlplus or die "Exception : Can't logout SQLPlus.$!";

この方法のコツは、「|」(パイプ)です。Perlからの出力先をSQLPLusにすることで、ログイン -> コマンドを実行 -> ログアウトを実現しています。

このやり方を実際にやってみると、SQLPlus自体の文字数制限によって、クエリーが失敗することに気づきます。それを考慮したサンプルコードが以下です。

以下のコードで確認できます。

これで、Perlにモジュールを追加することなく、OracleのDBにアクセスできますね。ググっても意外と見つからなかったので、書いてみました。

サンプルコード自体はまだまだ改善の余地があるので、良いコードがあったら教えてください。

<環境>
OS : Windows7
Perl : Perl5.16.3