下面的代码片段用于通过使用ptree并从它返回的结果中获取第三个PID来查找用户终端的PID.所有终端PID都存储在哈希中,用户的登录名作为密钥.
## If process is a TEMINAL.
## The command ptree is used to get the terminal's process ID.
## The user can then use this ID to peek the user's terminal.
if ($PID =~ /(\w+)\s+(\d+) .+basic/) {
$user = $1;
if (open(PTREE,"ptree $2 |")) {
while ($PTREE = <PTREE>) {
if ($PTREE =~ /(\d+)\s+-pksh-ksh/) {
$terminals{$user} = $terminals{$user} . " $1";
last;
}
next;
}
close(PTREE);
}
next;
}
下面是一个ptree执行示例：
ares./home_atenas/lmcgra> ptree 29064
485 /usr/lib/inet/inetd start
23054 /usr/sbin/in.telnetd
23131 -pksh-ksh
26107 -ksh
29058 -ksh
29064 /usr/ob/bin/basic s=61440 pgm=/usr/local/etc/logon -q -nr trans
412 sybsrvr
解决方法
我认为主要的问题是这个代码是循环的.您不需要运行ptree并多次解析结果！您需要找到一种方法来运行ptree一次并将其放入一个稍后可以使用的数据结构中.可能是某种简单的哈希就足够了.您甚至可以只保留％终端哈希并继续重用它.
一些挑剔……
>你的两个“下一个”陈述似乎都是
我没必要……你应该这样
能够删除它们.
>替换
$terminals{$user} = $terminals{$user} . " $1";
有：
$terminals{$user} .= " $1";
>替换你的裸字PTREE用作文件句柄$ptreeF或其他一些……使用裸露变得不必要了filehandles大约10年前:)>我不知道为什么你的$PID变量是全部大写……这可能令人困惑对你的代码的读者,因为它看起来有什么东西特别关于那个变量,和没有.