| Код |
@pids = map {(split)[0]}grep {(split)[10]=~/^(\d+)/ && $1>=$time} grep {/\b$name\b/} `top -b -n1`;
|
Есть несколько предложений
Одна и та же строка обрабатывается четыре раза. Причём два раза - абсолютно идентичным сплитом. В случае со списком процессов - это не имеет значения. А гигабайтные файлы лучше обрабатывать по-другому.
| Код |
#!/usr/bin/perl -w
use strict;
#регулярное выражение приведено для моего компьютера:
#[ 6219 sin 20 0 1772 536 436 S 0 0.0 0:00.00 compiz ]
#[ 6376 sin 20 0 31004 9928 8232 S 0 0.5 0:00.04 evolution-excha ]
#[ 6399 sin 20 0 1772 480 416 S 0 0.0 0:00.00 sh ]
#[ 6400 sin 20 0 1772 508 424 S 0 0.0 0:00.00 compiz-decorato ]
#[ 6402 sin 20 0 19992 11m 7652 S 0 0.6 0:04.54 gtk-window-deco ]
my $name = shift;
$name = qr/$name/; # пусть он скомпилируется один раз, а не в каждой итерации цикла
my @pids;
for(`top -b -n1`){
chomp;
if(/^ +(\d+)[^:]+(\d+:\d\d\.\d\d) $name/){
if(){ # предлагаю проверку времени реализовать самостоятельно
push @pids, $1;
}
}
}
|
Мне кажется, что лучше всё это хозяйство реализовать по-другому.
Во-первых, можно заметить по моему примеру, что длинные имена процессов порезались.
Во-вторых, если есть модуль, я правда не нашел, лучше пользоваться им.
В-третьих, вообще есть другая команда
ps -eo pid,time,cmd
её вывод вообще распарсится вот так
($pid, $time, $cmd) = split / /,$_, 2; #команда может содержать пробел
Время надо поискать какое-то другое. То, что указал я, отличается от вазвращаемого командой top
Кроме того, так как запускаться будет из под cron-а, хорошо бы как-то логироваться - убился процесс/не убился |
). Решил я написать скриптик, засунуть его в крон и пусть он эту работу делает за меня. Направьте на путь плиз.
: