perl如何获取linux系统下单个进程的CPU使用率

culoger

谢谢！

flw

转 Shell 版用 Shell 命令取吧。
Perl 做这个不擅长。

兰花仙子

原帖由 culoger 于 2009-10-22 22:03 发表
谢谢！

search下cpan?

或者用ps命令：

# ps -eo cpu,comm |grep process_name

flw

原帖由 兰花仙子 于 2009-10-22 22:07 发表


search下cpan?

或者用ps命令：

# ps -eo cpu,comm |grep process_name

仙子土了吧。

Linux 下，

ps h -o pcpu -C process_name

haimming

top -n 1 |awk '/firefox/{print $10}'
ps 不是即时的，用top吧

culoger

多谢两位版主.
我从CPAN上search过,也仅有监控当前进程CPU使用率的模块,而我要监控的进程fork过之后直接exec了,所以没办法使用.

flw

原帖由 haimming 于 2009-10-22 22:16 发表
top -n 1 |awk '/firefox/{print $10}'
ps 不是即时的，用top吧

嗯，我也建议用 top，
但是 top 的话，你这样写也是不对的，
第一，这么写的话，top 并不会列出所有的进程
第二，top 的版本不同，那么对应的列号也不同，比如我这里就应该是 $9，而不是 $10

所以我隆重推出我平时用的一个版本：

1. top -b -d 1 -n 1 -p `pidof program` | perl -lane '( ($i) = grep { $F[$_] =~ /CPU/ } 0..$#F ) and do{ $_=<>; @F=split; print $F[$i] };'

复制代码

hellosk

获得进程pid 用top -p 指定也可以

culoger

原帖由 flw 于 2009-10-22 22:22 发表

嗯，我也建议用 top，
但是 top 的话，你这样写也是不对的，
第一，这么写的话，top 并不会列出所有的进程
第二，top 的版本不同，那么对应的列号也不同，比如我这里就应该是 $9，而不是 $10

所以我隆重 ...

flw大侠,您给的例子适合在shell脚本用吧.用在perl里边感觉也太怪了.
手头有个管理程序用shell写不合适,才用perl来做.
谢谢两位.教我怎么用top

haimming

确是这样，偷了一下懒，
受教了，谢谢