弱弱的问一个

rxpmcb

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. foreach (@ARGV) {
   
5.         $process{$_} = 0;
   
6. }
   
7. open STATUS, "ps -e |";
   
8. while (<STATUS>) {
   
9.         ($pid, $name) = (split /\s+/)[0,3];
   
10.         if (defined($process{$name})) {
    
11.                 print "kill process $name, process id $pid ...\n";
    
12.                 $cnt = kill 9, $pid;
    
13.                 printf STDERR "$pid: $!\n" if !$cnt;
    
14.         }
    
15. }
    
16. close STATUS;
    
17. 
    

复制代码

STATUS表示什么？ defined($process{$name})有什么效果？还有 $cnt=kill 9,$pid; 是shell命令吗？

Ksharp

去读读文件句柄相关的东西吧，STATUS只是一个文件句柄的名称
foreach部分指定$process($_) = 0以后
defined($process{$name})是一个判断，返回值为true就执行{}里面的杀进程
$cnt = kill 9, $pid;  调用的Perl的函数kill，$cnt是kill的返回值

[ 本帖最后由 Ksharp 于 2007-3-15 14:52 编辑 ]

rxpmcb

原帖由 Ksharp 于 2007-3-15 14:18 发表
去读读文件句柄相关的东西吧，STATUS只是一个文件句柄的名称
defined($process{$name})是一个判断，但是这个程序的foreach部分我没看懂，为什么要把每个数组的变量都初始为0呢？defined(0)是什么意思？
$cnt =  ...

文件句柄我在书上就看到这几个：STDIN，STDOUT，STDERR，DATA，ARGV，ARGVOUT
defined后的括号里一定是0么？
我也不明白为什么是kill 9而不是kill -9
这段代码的功能是杀指定名字的进程，运行后确实可以杀掉

Ksharp

……
再仔细读读，你说的那些只是Perl自带的，有特殊含义的，Programmer可以自己定义新的句柄和句柄名啊
比如代码里的STATUS里面保存的就是ps -e的结果

rxpmcb

原帖由 Ksharp 于 2007-3-15 14:35 发表
……
再仔细读读，你说的那些只是Perl自带的，有特殊含义的，Programmer可以自己定义新的句柄和句柄名啊
比如代码里的STATUS里面保存的就是ps -e的结果

哦，谢谢你啊，刚看清楚了，看来我要做做笔记了...老是忘记...

Ksharp

不客气 互相学习 我也刚学Perl没多久

rxpmcb

我现在理解的含义是
先用foreach从@ARGV中取得要杀死的进程名称，并把它作为hash的key，然后把value初始化为0
打开一个文件句柄并将ps -e后的内容用管道传递给它
然后用while循环从句柄中提取内容
用split分割取得进程pid和进程name
这个用进程名为key在hash中找value，如果value不为0就杀掉这个进程
不过还有点不明白，hash中的value在什么时候改变了

rxpmcb

是不是它改变了hash里的value？

1. 
   
2. ($pid, $name) = (split /\s+/)[0,3];
   

复制代码

Ksharp

原帖由 rxpmcb 于 2007-3-15 15:03 发表
我现在理解的含义是
先用foreach从@ARGV中取得要杀死的进程名称，并把它作为hash的key，然后把value初始化为0
打开一个文件句柄并将ps -e后的内容用管道传递给它
然后用while循环从句柄中提取内容
用split分割 ...

正解
defined只是判断变量是否为空，不为空就返回true

rxpmcb

原帖由 Ksharp 于 2007-3-15 15:22 发表


正解
defined只是判断变量是否为空，不为空就返回true

可是根据我目前的判断，好象$process{$name}永远会是空的，因为初始化为0后好象就没修改里面的value