Perlでサービス再起動スクリプト

Perl

説明†

ロードアベレージをチェックして、サービスを再起動するスクリプトです。

スクリプト†

#!/usr/bin/perl

use POSIX qw(floor ceil);

my $HTTPD = httpd;
my $PSCHK = `w | head -1 | awk '{print \$(NF -1)}' | perl -pe "s/,//g"`;
#my $PSCHK = 6.95;

#切り上げ
my $UPPS = floor($PSCHK);
#切り捨て
my $DWPS = ceil($PSCHK);

if ($UPPS >= 5){
  print "Restart $HTTPD service\n";
  system("service $HTTPD restart");
  if ($? eq 0){ print "Restart success\n" } else { print "Restart failed\n"};
}  else  {
  print "Not Restart";
};

crontab†

*/5 * * * /usr/bin/perl スクリプト名