perlでsqlplusを実行する

リアルタイムでOracleの動的パフォーマンスビューの状況を確認したい場合がありますよね？

自分は結構あります。その時に書く捨てスクリプトがこんな感じです。
1分くらいで書けるのでよく使っています。

下記のスクリプトは1秒毎に日時と一緒にv$sessionの件数を出力するものです。
適宜変更して使ってみてください。

use warnings;
use strict;
use utf8;
use Fatal qw(open close);

$ENV{LANG}="C";
open my $sqlplus , "| sqlplus -s scott/tiger";
for (1..1000){
    print `date`;
    print $sqlplus q{ select count(*) from v$session; },"\n";
    sleep 1;
}
print $sqlplus "exit;","\n";
close $sqlplus;