今日の天気は
出張がちなので、最近サーバのsshの蓋を開けたんだけど、どこからともなくアタックがジャカジャカ飛び込んでくるようになった。こわいよう~と思いつつもしょうがない...
そこで、アタックしてくるIPをデータベースに全部控えとけ~と思ったんだけど、おいらmysqlやらpostgresqlが使えない。サーバに入ってるOracleを使いたいんだけど、ログ解析はやっぱりPerlが便利。そういうわけで、Perl-DBIをちょっとかじってみることにしました。
RHELのモジュールには、Oracle用のDBDがないので、しょうがなくCPANでインストール。
>perl -MCPAN -e shell
cpan> install DBD::Oracle
libclntsh.soがない!
って怒られるので、
/etc/ld.so.conf.d/にoracle-i386.confというファイルを作って
/opt/oracle/product/10.1.0/Db_1/lib
と1行だけ書く。
ldconfigで一回きれいにして、やりなおしたんだけど、
scott/tigerがロックされているという。
scottさん使ってテストするのね。
alter user scott account unlock;
ここまできてようやくまともにテストが走るようになる。
残り二つだけ、26exe_arrayと、31lob。
31lobの方はscott/tigerがDBA権限を持ってないといろいろな管理表が見れなくてエラーになるようだ。v$sessionが見れない~とか。めんどくさくなって一時的に
grant dba to scott;
で回避。
26exe_arrayのほうは10gではエラーになるらしい。9i用に作ったテストだかららしい。
http://www.nntp.perl.org/group/perl.dbi.users/2007/01/msg30849.html
なんで、このエラーは無視することに。
cpan> force install DBD::Oracle
で無事インストール完了
use DBI;
$dsn = "DBI:Oracle:host=localhost;sid=ORCL";
$dbh = DBI->connect($dns, "scott", "tiger");
出張がちなので、最近サーバのsshの蓋を開けたんだけど、どこからともなくアタックがジャカジャカ飛び込んでくるようになった。こわいよう~と思いつつもしょうがない...
そこで、アタックしてくるIPをデータベースに全部控えとけ~と思ったんだけど、おいらmysqlやらpostgresqlが使えない。サーバに入ってるOracleを使いたいんだけど、ログ解析はやっぱりPerlが便利。そういうわけで、Perl-DBIをちょっとかじってみることにしました。
RHELのモジュールには、Oracle用のDBDがないので、しょうがなくCPANでインストール。
>perl -MCPAN -e shell
cpan> install DBD::Oracle
libclntsh.soがない!
って怒られるので、
/etc/ld.so.conf.d/にoracle-i386.confというファイルを作って
/opt/oracle/product/10.1.0/Db_1/lib
と1行だけ書く。
ldconfigで一回きれいにして、やりなおしたんだけど、
scott/tigerがロックされているという。
scottさん使ってテストするのね。
alter user scott account unlock;
ここまできてようやくまともにテストが走るようになる。
残り二つだけ、26exe_arrayと、31lob。
31lobの方はscott/tigerがDBA権限を持ってないといろいろな管理表が見れなくてエラーになるようだ。v$sessionが見れない~とか。めんどくさくなって一時的に
grant dba to scott;
で回避。
26exe_arrayのほうは10gではエラーになるらしい。9i用に作ったテストだかららしい。
http://www.nntp.perl.org/group/perl.dbi.users/2007/01/msg30849.html
なんで、このエラーは無視することに。
cpan> force install DBD::Oracle
で無事インストール完了
use DBI;
$dsn = "DBI:Oracle:host=localhost;sid=ORCL";
$dbh = DBI->connect($dns, "scott", "tiger");
※コメント投稿者のブログIDはブログ作成者のみに通知されます