|<< 2004.12/1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 >>|

MAN HIMAZINE INTERFACE 3.1

この「にっき」には暴力シーンやグロテスクな表現が含まれています。

業務連絡: ZXH で始まるメールアドレスは SPAM が多いため、廃止しました。ご連絡は iyahaya で始まる方のメールアドレスか、あるいは twitter の @zetamatta へお願い致します。

(2004.12.21)

$ Oracle データファイルひっこし  Tweet

Oracle のデータファイルを移動後に、 Oracle 上のひもつけ状態をチェックするスクリプトを Perl/DBI で書き、

やたー、わし、えらい、さすがだ

と自己満足に思いっきり浸っていた。が… そもそも、Perl/DBI って、Oracle が mount状態の時、使えなかったよ

orz

しかも、Perl の -e 演算子って、4GB 以上のサイズのファイルが何故か認識できなかったし。結局、SQL*Plus + bash で、お茶を濁したとさ…。

#!/bin/sh

export NLS_LANG=American_America.JA16SJIS
sqlplus -s /nolog <<'__SQLPLUS__' >/dev/null
    connect / as sysdba;

    set echo off
    set pages 0
    set lines 32767
    set trims on
    set feed off
    set hea off
    set ver off
    set term off
    set pau off
    spool datafile.lst
        select name from v$datafile order by file# ;
    spool off;
    exit;
__SQLPLUS__
cat datafile.lst | while read filename
do
    if ((lb)) -r "$filename" ((rb)); then
        echo "[^[[32mOK^[[0m] $filename"
    else
        echo "[^[[31mNG^[[0m] $filename"
    fi
done

さりげにエスケープシーケンスで色を付けるなどという、ポータビリティーを無視したことをしているが、まぁ、いいじゃないか。