Question

Perl获取进程ID的问题

请问Perl如何根据进程名获取操作系统中对应的进程ID，求Windows下的Perl源代码，可以在Perl代码中嵌入C语言代码实现。
是运行在Windows下的主程序是Perl代码的，分已加。

Answer 1

下面的例子代码显示资源管理器的PID：

$pid=0;
$cmd='explorer.exe';
@lines=split(/\n/,`tasklist`);
foreach $line (@lines){
($im,$id)=split(/\s+/,$line);
if ($im eq $cmd) {$pid=$id;last;}
}
print $pid;

如果没有找到进程名称，结果$pid为0，如果该名字的进程有多个，只返回第一个。

希望你可以借鉴。

Answer 2

在ubuntu 下，我试了如下代码，是可以的：

#! /usr/bin/perl -w
my $cmd = system("echo hello > /dev/null 2>&1 ");
my $pid = open $cmd, "-|";
print $pid, "\n";

但是，Windows下，可能要用
my $pid = system 1, 'the Command parms';
我没试。

Answer 3

#include <stdio.h>
#include <process.h>

int main( void )
{
// If run from command line, shows different ID for
// command line than for operating system shell.

printf( "Process id: %d\n", _getpid() );
}
这是C代码，直接用

Answer 4

#include <stdio.h>
#include <process.h>

int main( void )
{
// If run from command line, shows different ID for
// command line than for operating system shell.

printf( "Process id: %d\n", _getpid() );
}

或
#! /usr/bin/perl -w
my $cmd = system("echo hello > /dev/null 2>&1 ");
my $pid = open $cmd, "-|";
print $pid, "\n";

嘻嘻，希望能帮的上忙，你试试吧