Mit Perl, wie überprüfe ich, ob ein Prozess mit dem angegebenen Namen läuft oder nicht?

Question

Mit Perl, wie überprüfe ich, ob ein bestimmter Windows-Prozess läuft oder nicht? Im Grunde möchte ich einen Prozess mit 'exec' starten, aber ich sollte das nur tun, wenn es nicht bereits läuft.

Wie also wissen, ob ein Prozess mit bestimmten Namen läuft oder nicht? Gibt es ein Perl-Modul, das diese Funktion bietet?

Answer 1

Sehen Sie sich das folgende Beispiel an, das das Modul Win32::OLE verwendet. Sie können nach laufenden Prozessen suchen, deren Namen einem bestimmten regulären Ausdruck entsprechen.

#! 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

Sie suchen wahrscheinlich nach Proc::ProcessTable (vorausgesetzt, Sie verwenden Unix!). Es gibt Ihnen Zugriff auf die Liste der Prozesse, und Sie können seine Felder abfragen, um den Prozess mit dem Namen zu finden. Es gibt zusammenhängende Pakete, die es Ihnen ermöglichen, einzelne Prozesse zu durchlaufen, je nachdem, was Sie tun möchten.

Answer 3

Vielleicht haben Sie keine Kontrolle über den zweiten Prozess, aber wenn Sie das tun, ein guter Weg, dies zu tun, ist der Prozess seine pid schreiben hat ($$) in eine Datei in einem bekannten Ort. Dann können Sie die Datei lesen und sehen, ob diese PID existiert mit kill($pid, 0).

Answer 4

Was Sie wirklich wollen, ist ein Weg, um einen Prozess vom Laufen zu stoppen, wenn es bereits ausgeführt wird (was ist, wenn Sie zwei verschiedene Programme mit dem gleichen Namen, oder sich entscheiden, Ihr Programm explorer.exe zu nennen?) Dies funktioniert für mich unter Linux:

use Fcntl ':flock'; 

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

In meiner Prüfung möchte dieser Code in keinem Block sein.

(source)