两段用来启动/重启Linux下Tomcat的Perl脚本-阿里云开发者社区

开发者社区> 开发与运维> 正文

两段用来启动/重启Linux下Tomcat的Perl脚本

简介:

两段代码,第二段比较好些。

 

下面是Split输出结果方式的代码:

复制代码
#!/usr/local/bin/perl
#Date:2015-07-07
print "Begin to restart tomcat\n";
my $output = `ps -ef|grep tomcat`;
print "$output\n";

my $pid="-1";
my @arr=split(/\n/,$output);
$length=@arr;

$index=0;
while($index<$length){
   $line=$arr[$index];

   my @arrLine=split(/\s+/,$line);

   if($arrLine[0] eq "root" && $arrLine[2] eq "1" && $arrLine[3] eq "99"){
      $pid=$arrLine[1];
      print "Found tomcat's pid=$pid\n";
   }


   $index++;
}

if($pid eq "-1"){
   print "No tomcat run,will start it\n";
   system("/home/rtt8/apache-tomcat-7.0.42/bin/startup.sh");
   print "Tomcat was started\n";
}else{
   system("kill -9 $pid");
   print "Tomcat was killed\n";

   system("/home/rtt8/apache-tomcat-7.0.42/bin/startup.sh");
   print "Tomcat have been restarted\n";
}
复制代码

 下面是正则表达式查找输出结果的代码

复制代码
#!/usr/local/bin/perl
#Date:2015-07-07

print "1.Find running tomcat\n";
my $output = `ps -ef|grep tomcat`;
print "$output\n";

if($output=~/(root)\s+(\d+)\s+(1)\s+(99)/){
   $pid=$2;

   print "Found running tomcat's pid=$pid\n";
   system("kill -9 $pid");
   print "Running tomcat was killed\n";
}else{
   print "No running tomcat,will start it\n";
}

print "\n2.Start tomcat\n";
system("/home/rtt8/apache-tomcat-7.0.42/bin/startup.sh");
print "Tomcat was started.\n";
复制代码

 









本文转自张昺华-sky博客园博客,原文链接:http://www.cnblogs.com/xiandedanteng/p/4628311.html,如需转载请自行联系原作者





版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
开发与运维
使用钉钉扫一扫加入圈子
+ 订阅

集结各类场景实战经验,助你开发运维畅行无忧

其他文章