两段用来启动/重启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;

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

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

   ] eq ] eq ] eq "){
      ];
      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";

)\s+()/){
   ;

   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";