Звуковой информатор о высокой нагрузке

Сей скрипт был мною написан больше ради забавы, но в принципе он играет свою рольв деле сигнализации о каких-то проблемах с сервером.

#!/usr/bin/perl
# Check for runnunig srcript
die if scalar(`/bin/ps -A|grep la_beeper|wc -l`)>1;

while(1){

    $avg=`/usr/bin/uptime`;
    $avg=~s/^.*?average.*?:\s*(.*?)[^\d\.\,]+.*/$1/gi;
    $avg=~s/\,/\./gi;
    `/usr/bin/beep -f 500 -l 100` if $avg>10;

    $sleep = 100/$avg;
    sleep($sleep);
}

Скрптик вешается на крон, и проверяет не запущен ли ещё его экземпляр. Если запущен, то умирает. При загрузке (Load Average)более 10 системник начинает попискивать спикером. Чем больше загрузка, тем чаще писк.


Добавить комментарий