Perlでサービス再起動スクリプト
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[Perl]]
*説明 [#d2efc7a7]
ロードアベレージをチェックして、サービスを再起動するスク...
*スクリプト [#i749a3a7]
#!/usr/bin/perl
use POSIX qw(floor ceil);
my $HTTPD = httpd;
my $PSCHK = `w | head -1 | awk '{print \$(NF -1)}' | per...
#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...
} else {
print "Not Restart";
};
*crontab [#q26b8872]
*/5 * * * /usr/bin/perl スクリプト名
終了行:
[[Perl]]
*説明 [#d2efc7a7]
ロードアベレージをチェックして、サービスを再起動するスク...
*スクリプト [#i749a3a7]
#!/usr/bin/perl
use POSIX qw(floor ceil);
my $HTTPD = httpd;
my $PSCHK = `w | head -1 | awk '{print \$(NF -1)}' | per...
#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...
} else {
print "Not Restart";
};
*crontab [#q26b8872]
*/5 * * * /usr/bin/perl スクリプト名
ページ名: