求助：用perl语言怎么获取进程pid号？

MMMIX

原帖由 redmaple_v1 于 2009-3-3 16:14 发表



我用ps -ef 查看的时候，pid号不对！

哦，那是你看岔了或者你根本不清楚哪个是哪个。

其实验证 getppid 的输出对不对很简单，在 fork 之前打印 $$，然后在 child process 中打印 getppid 的结果。

[ 本帖最后由 MMMIX 于 2009-3-3 16:37 编辑 ]

MMMIX

原帖由 redmaple_v1 于 2009-3-3 16:20 发表


谢谢，能否帖个链接？我没找到

search.cpan.org

BTW，要学会用搜索引擎。

redmaple_v1

原帖由 MMMIX 于 2009-3-3 16:36 发表

哦，那是你看岔了或者你根本不清楚哪个是哪个。

其实验证 getppid 的输出对不对很简单，在 fork 之前打印 $$，然后在 child process 中打印 getppid 的结果。

#!/usr/bin/perl -w use strict; print "\n\ntest$$\n\n"; my $pid; $pid=fork(); die "Error!\n" unless defined $pid; my $a; my $sipp = "./sipp local:5000 -mp 60001 -bg"; if ($pid!=0){    system ("$sipp"); } else{    $a = getppid();    print "$a\n"; }

结果：
test18712 #$$打印出来的进程pid
18712 #父进程pid
Resolving remote host '127.0.0.1'... Done.
Background mode - PID=[18715]  #$sipp运行实际pid

[ 本帖最后由 redmaple_v1 于 2009-3-3 17:06 编辑 ]

redmaple_v1

原帖由 MMMIX 于 2009-3-3 16:42 发表

search.cpan.org

BTW，要学会用搜索引擎。

，额这个都搞忘了！！:wink:

MMMIX

原帖由 redmaple_v1 于 2009-3-3 17:05 发表
#!/usr/bin/perl -w

use strict;
print "\n\ntest$$\n\n";
my $pid;
$pid=fork();
die "Error!\n" unless defined $pid;
my $a;
my $sipp = "./sipp local:5000 -mp 60001 -bg";
if ($pid!=0){
   system ("$sipp");
}
else{
   $a = getppid();
   print "$a\n";
}  

结果：
test18712 #$$打印出来的进程pid
18712 #父进程pid
Resolving remote host '127.0.0.1'... Done.
Background mode - PID=[18715]  #$sipp运行实际pid

你贴这段上来想说明什么？你没有搞错？那最后 print "$a\n" 的输出呢？

如果你觉得运行 sipp 的 pid 应该和 getpid 的输出或者和最开始 $$ 的值相等，那显然你还不理解 system 的作用。

[ 本帖最后由 MMMIX 于 2009-3-3 18:33 编辑 ]

Pro_sky

my $pid = `ps ax | grep $pname | grep -v grep | awk {'print \$1'}`

flw

原帖由 Pro_sky 于 2009-3-3 18:57 发表
my $pid = `ps ax | grep $pname | grep -v grep | awk {'print \$1'}`

你这样还不如
my $pid = `pidof $name`
呢。
唉。

redmaple_v1

问题已经解决了，只不过换了个方式。通过从文档读出来的方法把pid获得。
通过这次提问，我学到了很多，谢谢大家的耐心指导。
小弟谢过了！！

[ 本帖最后由 redmaple_v1 于 2009-3-4 14:30 编辑 ]

ly5066113

原帖由 MMMIX 于 2009-3-3 16:35 发表

直接用 Perl 的 kill 函数。

看来perl的推广还须加强。

已经看到过好多人在perl脚本里写了一堆的``和system
就连文本处理也是用的 `sed ...`

MMMIX

原帖由 ly5066113 于 2009-3-4 15:51 发表

已经看到过好多人在perl脚本里写了一堆的``和system
就连文本处理也是用的 `sed ...`

他们就是把 Perl 当 Shell 使，还有把 Perl 当 C 使的，等等等等。