加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

rex 切换到oracle用户执行脚本

发布时间:2020-12-12 14:15:52 所属栏目:百科 来源:网络整理
导读:my @DBARR=('188.2.247.50','188.2.247.51','188.2.247.5','188.2.247.6','188.16.68.3','188.16.68.4','188.2.231.3','188.2.231.4','188.2.231.8','188.2.231.9','188.2.247.17','188.2.247.18','188.16.32.25','188.16.32.26','188.3.248.5','188.3.248.6
  my @DBARR=('188.2.247.50','188.2.247.51','188.2.247.5','188.2.247.6','188.16.68.3','188.16.68.4','188.2.231.3','188.2.231.4','188.2.231.8','188.2.231.9','188.2.247.17','188.2.247.18','188.16.32.25','188.16.32.26','188.3.248.5','188.3.248.6');
 group DBARR=>@DBARR;
 task "check_lock",group=>"DBARR",sub {
   my $current_server = connection->server;
   chomp $current_server;
   say $current_server;
   file "/tmp/check_lock.sh",source => "/root/rexdb/rex/database/check_lock.sh",mode => 755,owner  => "oracle",group  => "dba";
   my @output = run "su - oracle -c /tmp/check_lock.sh";
   say @output;
   my $output;
   foreach $output (@output){
   $output=~s/[rn]//;
   my @array=split /s+/,$output;
   say $array[-1];
   if ($array[-1] >= 5){
     &SendELK("DbLockWarning->${current_server}->$output");
   };
 };
};

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读