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

[6 動け動けウゴウゴ２ちゃんねる 2013/04/28(日) 16:36:28.41 ID: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)
}