皆さん、Perlは好きですか？
私は大好きで今でもデータの抽出や加工に使っていたりします。
Linuxだとデフォルトで入っていますし、Windowsでもビルドしてあるものが配布されていたりして導入も簡単です。
今回は、Windows上のPerlからOracleDBへアクセスする方法を紹介します。
DBのデータをPerlでいじれるとかなり便利だと思います。
環境（前提）
●データベース → OCI BaseDB（OraceDB 19c Standard Edition）
PDBにテーブルを既に入れてある前提
●Windows → Windows Server 2022 Standard (OCI上に構築)
●OCI上のネットワーク
VCNを構築済みでセキュリティリストでRDPで使うTCP/3389とOracleDBで使うTCP/1521が通る設定になっている事。
WindowsへPerlを入れる
WindowsにPerlを入れるとなるとActive PerlかStrawberry Perlになるかと思いますが、今回は比較的新しめのリリースのあるStrawberry Perlをインストールします。
対象のインストーラをダウンロード
こちらへアクセスして最新版をダウンロードしてインストールします。
ダウンロードしたらインストーラを実行。
UACからこのようなメッセージが出たら「YES」を押下してください。
無事にインストールが完了したらちゃんと実行できるか調べてみましょう。
コマンドプロンプトを開いて
perl -version
と入れてバージョンが表示されば無事にインストールされ、パスも設定されています。
Oracle Clientのインストール
次にOracleDatabaseへアクセスるために必要なOracle Clientをダウンロードします。
こちらにアクセスしてダウンロードします。
パッケージがいくつかありますが、Basic, sqlplus, sdkの3つをダウンロードします。
C:¥直下に「oracle」という名前のフォルダを作成します。
ダウンロードしたパッケージは3つとも中にinstantclient_21_9というフォルダが入っているので3つとも先ほど作成した「C:\oracle」へ入れます。
環境変数の設定
次に今コピーしたC:\oracle\instantclient_21_9へのパスを設定して、ORACLE_HOMEという環境変数も作成します。
まず、コントロールパネルを開きます。
カテゴリ順だとわかりずらいのでsmall iconsに切り替えます。
Systemを開きます。
右の方に「Advanced system settings」があるので開きます
下の方に「Enviroment Variables」があるので開きます。
下の「System variables」のペインの中にある「Path」を選択し、「Edit」ボタンを押下します。
右上の「New」ボタンを押し新しい値として「C:¥oracle￥instantclient_21_9」を入力し、下部の「OK」ボタンを押下します。
これでパスの設定はできました。
次に新たな環境変数の追加です。
Enviroment Variablsウィンドウの下の方にある「New」というボタンを押下します。
新しい環境変数を作成するウィンドウが開くので「ORACLE_HOME」という変数に「C:¥oracle￥instantclient_21_9」を値として入力し、OKを押下します。
パスが正しく通ったか動作確認をしてみます。
コマンドプロンプトを開いて
sqlplus
と入力し、下図のようにバージョンが出ればパスは通っています。
692/5cfa49e8-39b0-a98c-725d-ea21d2d9a19c.jpeg)
Perlのライブラリを入れる
PerlでOracleDatabaseへ接続するライブラリを追加します。
コマンドプロンプトで
cpan DBD::Oracle
と入力します。
正常に終わると一番最後が「OK」になります。
ここでエラーになる場合はORACLE_HOMEという環境変数が正しく設定されていない可能性があります。
OracleDBの設定
次にOracleDatabaseへアクセスする情報が入っているtnsname.oraファイルを作成します。
C:¥oracle￥instantclient_21_9￥network￥admin配下にtnsnames.oraを作成します。
次に、接続先のBaseDBへログインし、そちら側のtnsnames.oraを確認します。
今回はPDBの方に接続するので赤枠のPDBの情報を先ほど作成したWindows側のtnsnames.oraにコピーします。
これでWindowsのコマンドプロンプトからsql plusを使ってBaseDBへアクセスできるはずです。
コマンドプロンプトで
sqlplus /@
を入力して接続先情報が出ればOKです。
試しにselect文を実行してみるとテーブルの中身が表示されます。
PerlからSQL文を実行してみる
ここまで出来たらあとはPerlからアクセスするだけです。
こんな感じのスクリプトを準備しました。
#!perl.exe
use DBI;
print "----------------------------------------\n";
print "|CATNO\t|NAME\t|COLOR|\n";
print "----------------------------------------\n";
$dbh = DBI -> connect("dbi:Oracle:PDB1","test","<パスワード>");
$sth = $dbh -> prepare('SELECT * from cat');
$sth -> execute();
while(@ary = $sth -> fetchrow){
$i = 0;
while($i < @ary){
print "|" . $ary[$i] . "\t";
$i++;
}
print "|\n";
}
$sth -> finish();
$dbh -> disconnect();
これを実行すると以下のような結果になしました。
PerlからSQL文を叩けるようになれば色々とデータをいじれて便利になりますね。
以上、OCIのWindowsServerからPerlでBaseDBへ接続する方法でした。