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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-11-10 (火) 20:08:27 (1324d)