调用crs_stat动态显示RAC资源状态...

连续地查询RAC集群资源的状态并以绿色显示出改变项(行).

稍加改动的话可以调用别的命令进行连续的操作,也可以加参数控制显示多少次和多长时间查询一次...

不过最近比较忙,暂时这样了.

 

比较ugly的是不知道perl里有什么替代C中的fflush()的,所以直接用`clear`了.虽然网上有说setvbuf()可以,但是还没弄明白如何用.

 

#!/usr/bin/perl

use warnings;

 

my @OLD = `crs_stat -t`;

my $check = join('', @OLD);

 

if($check =~ /^$/)

{

        exit;

}

else

{

        `clear`;

        print @OLD;

}

 

while(1)

{

        system("clear");

        @NEW = `crs_stat -t`;

        $line_count = 0;

        for($line_count = 0; $line_count <= $#NEW; $line_count ++)

        {

                if($OLD[$line_count] eq $NEW[$line_count])

                {

                        print $OLD[$line_count];

                }

                else

                {

                        print "\33[32m$NEW[$line_count]\33[0m";

                        $OLD[$line_count] = $NEW[$line_count];

                }

        }

        sleep(3);

}