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

redmaple_v1

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

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?

flw

POE
POE::Wheel::Run

redmaple_v1

system("kill -9 $pid");

怎么打印啊？麻烦！！

[ 本帖最后由 redmaple_v1 于 2009-3-3 16:18 编辑 ]

redmaple_v1

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

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

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

redmaple_v1

原帖由 flw 于 2009-3-3 16:07 发表
POE
POE::Wheel::Run

一个模块？？

shaneqi

恩，cpan上有。

redmaple_v1

原帖由 shaneqi 于 2009-3-3 16:17 发表
恩，cpan上有。

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

MMMIX

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

怎么打印啊？麻烦！！

直接用 Perl 的 kill 函数。