请教高手～～～！！perl里怎么获取linux系统进程的线程数？

[xf_pan]

请问perl里怎么获取linux系统进程的线程数？困惑几天了，，谢谢大家关注

[xf_pan]

是运行的某个进程的线程数～～~

[xf_pan]

是运行的某个进程的线程数～～~

[xf_pan]

怎么没人来啊，，
希望高手们多都指教，，在线等～～～～～～

[xf_pan]

郁闷啊，，找了好多资料，，都没有，，，
自己再顶下～～

[xf_pan]

等待高手出现啊

[xf_pan]

不能让贴子沉下去，，希望的火种啊！！～1

[xf_pan]

不能成下去，，再定～～～

[xf_pan]

顶起来，，

[coldfishc]

用Proc::ProcessTable
或者直接调系统命令 $p = `ps -a | wc -l`

[jiuchang]

pstree一下可以看到下面的东东
mysqld_safe---mysqld---8*[{mysqld}]
然后就可以搞定了
$num = `pstree | grep mysqld | cut -d '-' -f8 | cut -d'*' -f1`;

[coldfishc]

-_-|||
sorry 看错了

[xf_pan]

To 15楼
这样得到的是进程之间的关系，也就是父进程的子进程列表，我想要的
是单个进程当前启动的线程数，，
谢谢你的关注，，帮我再想想办法吧，
现在还没解决阿~~

[xf_pan]

To 16楼
关注本贴的都有分，。

[ghostwcy]

是运行Perl脚本的进程的线程数？还是不相关的进程的线程数？
如果是运行Perl脚本的进程的线程数，

use threads;
my @threads_list = threads->list(); //数组@threads_list中元素个数就是当前进程的线程数(不含属性为detached的线程)

如何获取属性为detached的线程数，我就不清楚了


如果是不相关的进程的线程数，
不清楚，可能不可以

[xf_pan]

To 19楼
是想获取别的任意一个进程的线程数,
也就是不相关的进程，，，
难度就真的没办法了吗~~
郁闷。。。

[ghostwcy]

一个进程的信息只有内核进程才可以读取，别的进程是无法获取的
除非自己写个程序，且运行在内核空间，或许还有可能（具体的我也不清楚）
即使是root用户也无法获取，应为使用root权限执行的命令一般也是在用户区运行的

[xf_pan]

晕，，我明明给大家都加分了，，
怎么没加上阿。。。

[shootingstar_w]

关注。。

[xf_pan]

问题已解决了，，
解决方法如下，，
linux系统下 ps -eLf 第6列就是
AIX系统下 ps -eo comm,thcount 第二列
SOLARIS 同linux

hp系统 有待解决。。

[xf_pan]

呵呵，，发现这个问题能在baidu第一条找到。。
希望能帮助需要的人，也希望以后大家，把问题解决了。。都把答案贴上，，这样就可以让很多人少走弯路了。。