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

MMMIX

原帖由 redmaple_v1 于 2009-3-3 11:24 发表
RT，刚学习用perl，不熟悉，请大家不惜赐教！

直接用 $$，详见 perldoc perlvar

MMMIX

原帖由 redmaple_v1 于 2009-3-3 13:53 发表
但是我这里的运行情况是打印出来的pid要比真的pid小。（2，3，4）个数字不定，不知道是怎么回事。
我直接
system（"exe"）；
print"$$\n";
不知道对不对。

不对，$$ 是当前进程的 pid，system 自己会创建一个进程。

MMMIX

原帖由 redmaple_v1 于 2009-3-3 14:30 发表
哦。
那，如果我要获取system创建的进程，应该？

在 system 执行的 shell 命令里面打印 $$，或者直接用 fork + exec。

BTW，你要 pid 干啥？

MMMIX

原帖由 redmaple_v1 于 2009-3-3 15:04 发表
谢谢，还有个问题，当我用getppid（）；获取进程时也有问题。
my $pid;
$pid = fork();
if ($pid != 0){
    system("exe1"); //这个应该是父进程撒。
}
else{
    system("exe2");
    my $parent = getppid();//获取父进程pid。
    print "$parent\n";
}
发现打印出来的不是父进程pid……望指教……

你怎么知道不是父进程的 pid?

MMMIX

原帖由 redmaple_v1 于 2009-3-3 16:13 发表
system("kill -9 $pid");

怎么打印啊？麻烦！！

直接用 Perl 的 kill 函数。

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，要学会用搜索引擎。

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 编辑 ]

MMMIX

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

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

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