使用Perl，如何检查具有给定名称的进程是否正在运行？

Question

Using Perl, how do I check if a particular Windows process is running or not? Basically, I want to start a process using 'exec', but I should do this only if it is not already running.

So how to know if a process with particular name is running or not? Is there any Perl module which provides this feature?

Answer 1

Take a look at the following example that uses the Win32::OLE module. It lets you search for running processes whose names match a given regular expression.

#! perl

use warnings;
use strict;

use Win32::OLE qw(in);

sub matching_processes {
  my($pattern) = @_;

  my $objWMI = Win32::OLE->GetObject('winmgmts://./root/cimv2');
  my $procs = $objWMI->InstancesOf('Win32_Process');

  my @hits;
  foreach my $p (in $procs) {
    push @hits => [ $p->Name, $p->ProcessID ]
      if $p->Name =~ /$pattern/;
  }

  wantarray ? @hits : \@hits;
}

print $_->[0], "\n" for matching_processes qr/^/;

Answer 2

You're probably looking for Proc::ProcessTable (assuming you're using Unix!). It gives you access to the list of processes, and you can query its fields to find the process with the name. There are related packages to allow you to get at individual processes, depending what you want to do.

Answer 3

Maybe you don't have control over the second process, but if you do, a good way to do this is to have the process write its pid ( $$ ) out to a file in a known location. Then you can read the file and see if that pid exists using kill($pid, 0) .

Answer 4

What you really want is a way to stop a process from running if it is already running (what if you have two different programs with the same name, or decide to name your program explorer.exe?) This works for me on Linux:

use Fcntl ':flock';

open SELF, '<', $0 or die 'I am already running...';
flock SELF, LOCK_EX | LOCK_NB  or exit;

In my testing that code does not want to be in any block.

( source )