Perl

説明 [#d2efc7a7]

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

スクリプト [#i749a3a7]

 #!/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 [#q26b8872]

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