Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > получить время работы процесса

Автор: debugg 27.8.2007, 11:07

У меня такая проблема. Хочу узнать сколько времени проработал определенный процесс и если время больше заданного вырубить его. Задача вроде бы тривиальная и должна много где использоваться хотя в сети найти ничего стоящего не могу.
Процессы по заданному условию я отловил используя псевдо-файловую систему /proc. Там у каждого процесса есть дерриктория в которой лежит файлик stat содержащий все необходимые данные. Вот вопрос как определить какие из этих цифр являються временем работы процесса. Конкретно мне нужно поле START которое выводиться при комманде PS -eux, вернее его данные.
Если кто сталкивался помогите плз...

Автор: amg 27.8.2007, 14:42

Можно, конечно, самому парсить /proc, но проще воспользоваться готовым модулем. Например

Код


use Proc::ProcessTable;
$now = time();
$t = new Proc::ProcessTable;
foreach $p ( @{$t->table} ){
  if (getpwuid($p->uid) eq 'user' and $now - $p->start > 24*3600) {
    print $p->pid, "\t", $p->fname, "\n";
    #$p->kill(9);
  }
}

Автор: debugg 27.8.2007, 15:08

эх если бы был Proc::ProcessTable был бы рай ))
у нас на фирме очень строго с подключением чего бы то ни было нового ((
но все равно спасибо!

Автор: amg 28.8.2007, 12:44

Совсем несложно и /proc пропарсить. Надо только внимательно читать man proc. Вот:

Код


$now = time();

open BOOTSTAT, '<', '/proc/stat' or die "Cant't read /proc/stat: $!\n";
while (<BOOTSTAT>) {
  $boot_time = $1 if /^btime\s+(\d+)/;
}
close BOOTSTAT;

opendir PROCDIR, '/proc' or die "Cant't opendir /proc: $!\n";
while ($pid = readdir PROCDIR) {
  if (-d "/proc/$pid" and $pid =~ /^\d+$/) {
    
    open PROCSTAT, '<', "/proc/$pid/stat" or warn "Cant't read /proc/$pid/stat: $!\n" && next;
    ($command,$jiffies_from_boot) = (split ' ', <PROCSTAT>)[1,21];
    close PROCSTAT;
    $command =~ s/^\((.+)\)/$1/;
    $age = $now - $boot_time - $jiffies_from_boot/100;
    
    open PROCSTATUS, '<', "/proc/$pid/status" or warn "Cant't read /proc/$pid/status: $!\n" && next;
    while (<PROCSTATUS>) {
      $user = getpwuid($1) if /^Uid:\s+(\d+)/;
    }
    close PROCSTATUS;
    
#    open PROCENV, '<', "/proc/$pid/environ" or warn "Cant't read /proc/$pid/environ: $!\n";
#    %procENV = map {split '=', $_, 2} split "\0", <PROCENV>;
#    close PROCENV;
    
    printf "%-6s %-8s %8d %s\n", $pid, $user, $age, $command;
    #if ($user eq 'user' and $age > 24*3600) {
    #  kill 9, $pid or warn "Can't kill $pid: $!\n";
    #}
  }
}
close PROCDIR;

PS У меня дистрибутив другой, не федора, может быть не все подойдет, но принцип ясен.

Автор: debugg 28.8.2007, 12:54

да спасибо большое все починил!!!
проблема была где взять данные

Добавлено через 5 минут и 11 секунд
starttime - proc/pid/stat элемент номер [21] )
boottime - proc/stat - btime
ну и время сейчас time

еще!
нужно обязательно поделить starttiime на hz если не вдаваться в подробности то на 100

формула для вычисления времени работы процесса получаеться

time_work_proc = time - boottime+(starttime/100)

Автор: amg 28.8.2007, 15:13

Цитата(debugg @ 28.8.2007, 12:54

)

time_work_proc = time - boottime+(starttime/100)

debugg, формула то неправильная. Там "-" вместо "+" должен быть.

Автор: debugg 28.8.2007, 15:17

Цитата(amg @ 28.8.2007, 15:13)

Цитата(debugg @ 28.8.2007, 12:54

)

time_work_proc = time - boottime+(starttime/100)

debugg, формула то неправильная. Там "-" вместо "+" должен быть.

Цитата

debugg, формула то неправильная. Там "-" вместо "+" должен быть.

нет там все правильно
starttime - это время прошедшее от старта системы ДО запуска процесса

Автор: amg 28.8.2007, 15:38

Именно так. man proc:

Код


                     starttime %lu
                            The time in jiffies the process started after sys-
                            tem boot.

Тогда, может, ты скобку открывающую не туда поставил? Чтобы проверить, попробуй подставить свою формулу в мой код (см. выше), который распечатывает список процессов. Последним процессом там будет perl, который, собственно, и исполняет этот скрипт. Согласись, у него время д.б. маленькое.