#
# Get the full archived log name by sequence
#
sub findLogBySequence
{
    my ($logseq) = @_;
    my $logfile = “”;

    if (length($logfile) == 0)
    {
        # Foloowing logic is for Oracle 9i (sid_%t_%s.arc)
        $logfile = `find /data*/arch -follow -name *_${logseq}.* | head -1`;
        chomp($logfile);
        # Foloowing logic is for Oracle 10g (sid_%t_%s_%r.arc)
        if (length($logfile) == 0)
        {
          $logfile = `find /data*/arch -follow -name *_${logseq}_* | head -1`;
          chomp($logfile);
        }
    }

    scalar $logfile;
}

    如果要管理的归档日志很多, 可能要跑成百上千次find命令, 有些资源上的浪费, 可以好好优化一下, 一般来讲同类的归档肯定是放在一起的. 因此将上面的Perl程序优化如下:

my $logfmt = “???”;
#
# Get the full archived log name by sequence
#
sub findLogBySequence
{
    my ($logseq) = @_;
    my $logfile = “”;

    #
    # if archive log pattern is not null
    # get the archive log file from pattern
    #
    if ($logfmt ne “???”)
    {
        $logfile = $logfmt;
        $logfile =~ s/XXXXXX/${logseq}/g;
        if (! -e $logfile)
        {
          $logfile = “”;
          $logfmt = “???”;
        }
    }

    if (length($logfile) == 0)
    {
        # Foloowing logic is for Oracle 9i (sid_%t_%s.arc)
        $logfile = `find /data*/arch -follow -name *_${logseq}.* | head -1`;
        chomp($logfile);
        # Foloowing logic is for Oracle 10g (sid_%t_%s_%r.arc)
        if (length($logfile) == 0)
        {
          $logfile = `find /data*/arch -follow -name *_${logseq}_* | head -1`;
          chomp($logfile);
        }
    }

    # Store the archive log pattern
    if (length($logfile) and -e $logfile and $logfmt eq “???”)
    {
        $logfmt = $logfile;
        $logfmt =~ s/_${logseq}\./_XXXXXX\./;
        $logfmt =~ s/_${logseq}_/_XXXXXX_/;
    }
    scalar $logfile;
}

    有了高效的查找日志路径的算法, 就可以做更多智能的功能了, 如指定保留多少GB的归档.

Relative Posts:

• 2008/11/25 -- 指定保留多少GB的归档 (1)
• 2008/11/20 -- 用Perl写Primary维护脚本 (1)
• 2008/11/15 -- 用Perl写Standby维护脚本 (1)
• 2009/07/08 -- 在Crontab中调度Perl程序 (2)
• 2009/02/12 -- 准确获取AIX的网络流量 (0)
• 2008/12/04 -- Perl取Linux/Unix磁盘空间 (4)
• 2008/11/28 -- 用Perl进行TCP端口确认 (0)
• 2008/08/28 -- Perl AIX-Perfstat-0.03编程 (0)
• 2008/08/28 -- 安装Perl AIX-Perfstat-0.03 (1)
• 2007/08/22 -- Oracle需要手工启动, 无法自动启动 (4)

    最近的三年中, 唯一自动启动和关闭的数据库是我笔记本上的库, 用来自已玩和做些研究的, 最近还是改成了手工启动. 对于DBA来讲, 数据库的重启是一件很重要的事, 必须要亲自去操心一下的; 数据库的重启还是一种机会, OLTP型的数据库很难得有重启的机会的, 在重机时你可以调整一些参数, 或顺便做一些维护性质的工作, 有时侯为了作一些调整, 如移动文件位置等操作, 等重起的机会还得等几个星期呢. 你说这样的机会能放过吗?

    这几天又在网上看见有人问, 机器重起后, 数据库和监听器不能自动重启了怎么办? 我的回签是, 不能自动重启就手工启吧! 当然你可以写几行角本, 然后双击鼠标(Windows)或是手工执行(Linux/Unix)来启动数据库.

    就算你是领导, 也不要一定强求手下的人用自动化来实现自动启动的功能, 没有必要. 很多数据库出问题都是在半年或一年/几年没有人看的情况下, 为什么不去看? 连最单的活都实现自动化了, 当然不看了, 而是去上上网喝喝茶看看报炒炒股了.

    欢迎不同的意见.

Relative Posts:

• 2009/06/25 -- oramon如何收集V$SYSTEM_EVENT数据? (3)
• 2009/06/25 -- oramon如何从V$SESSION收集性能数据? (0)
• 2009/06/24 -- oramon如何从V$SYSSTAT收集性能数据? (1)
• 2009/05/26 -- MySQL或Oracle, 是个问题? (7)
• 2009/05/21 -- 用oramon的数据进行报警 (3)
• 2009/04/05 -- 轻量级Oracle性能监控 (3)
• 2008/12/13 -- 如何画一个SubChart图? (3)
• 2008/12/11 -- 画一个Web图表有多难? (0)
• 2008/12/11 -- 画图? WebChart够用了! (1)
• 2008/11/25 -- 指定保留多少GB的归档 (1)