Временные метки каталогов в / proc бесполезны.
Мне посоветовали взглянуть на 'man proc';это говорит о том, что поле / proc / $ PID / stat 21 записывает время запуска процесса в jiffies ядра с момента загрузки ... так:
open A,"< /proc/stat"; while (<A>) { if (/^btime ([0-9]*)/) { $btime = $1 } }
для получения времени загрузки, тогда
my @statl = split " ",`cat /proc/$i/stat`;
$starttime_jiffies = $statl[21];
$starttime_ut = $btime + $starttime_jiffies / $jiffies_per_second;
$cputime = time-$starttime_ut
но я установил $ jiffies_per_second равным 100, потому что я не знаю, как запросить у ядра его значение из perl.