利用Perl取得Windows目前執行的PID

使用Win32::Process:List可以用非常簡單的方式取得行程的資訊
CPAN文件

use strict;
use Win32::Process::List;

my $p = Win32::Process::List->new();

#取得行程名稱與pid
my %list = $P->GetProcesses();

#依名稱取得pid
my $PID = $P->GetProcessPid("explorer");

#取得目前所有行程的總數
my $np = $P->GetNProcesses();