【協力願】Boo2008(旧Boo80)で串を食べませんか？　その11

【協力願】Boo2008(旧 ..

6:動け動けウゴウゴ２ちゃんねる
13/04/28 16:36:28.41 SEMu1WLY0
●その他
# 起動数制限装置
my $Processes = scalar grep /$0/, qx|/bin/ps Uch2boo|;
my @LA5 = split /,/, (qx|/usr/bin/uptime| =~ /load averages: (.+)$/)[0];
if ($Processes > ((localtime)[2] > 16 ? 30 : 50) or $LA5[0] > 5) {
Error('02',sprintf "Boo2008 running processes = %d : load averages = %s, %s, %s", $Processes, @LA5)
}

次ページ

続きを表示

1を表示