Демон Watchdog не запускается при загрузке

Статистические данные по процессам можно найти в

/proc/$PID/stat

. Вы можете прочитать документацию, запустив man proc , найдите / proc / [pid] / stat :

man -P'less +/\\\/proc\\\/\\\[pid\\\]\\\/stat' proc

...

(14) utime% lu Время, в течение которого этот процесс был запланирован в пользовательском режиме, измеряется в часах {{1} } тиков (разделить на sysconf (_SC_CLK_TCK)). Сюда входит время гостя, guest_time (время , затраченное на работу виртуального ЦП, см. Ниже), так что приложения, которые не знают поле времени гостя, не теряют это время в своих вычислениях.

(15) stime% lu Время, в течение которого этот процесс был запланирован в режиме ядра, измеряется в тактах (разделить на sysconf (_SC_CLK_TCK)).

Примечание: Другие поля могут быть важны, например, если ваш инструмент генерирует много подпроцессов (дочерних).

Для примера есть быстрый Perl, выполняющий эту работу, но с фиксированной задержкой в ​​1 секунду:

#!/usr/bin/perl -w

my ( $lut, $lst ) = ( 0, 0 );
my $pid = $ARGV[0] or die "No pid";

open FH, "</proc/$pid/stat" or die "Can't open \`\`/proc/$pid/stat''";
open UT, "</proc/uptime"    or die "Can't open \`\`/proc/uptime''";

sub getvals {
    seek FH, 0, 0;
    seek UT, 0, 0;
    my $st  = <FH>;
    my $ut  = <UT>;
    my $out = $lut;
    my $ost = $lst;
    $lut = ( split " ", $ut )[0] * 100;
    $lst = eval( join( "+", ( split " ", $st )[ 13, 14 ] ) );
    return $lut - $out, $lst - $ost;
}
getvals;
$| = 1;
while (1) {
    sleep 1;
    printf "%7.2f%%\n", eval sprintf "100/%s*%s", getvals;
};