Perlでサービス再起動スクリプトの変更点

追加された行はこの色です。
削除された行はこの色です。
Perlでサービス再起動スクリプトへ行く。

[[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 スクリプト名

Perlでサービス再起動スクリプト の変更点

Perlでサービス再起動スクリプトの変更点