Wie überprüfen ob ein Prozess läuft und killen? - #107395 (Allgemeines zu Perl)

AndiS

2008-03-23 14:42

User since
2008-02-20
9 Artikel
BenutzerIn
[default_avatar]

@ renee

Vielen Dank! Ich glaube da ist ein kleiner Fehler in Zeile 13. Am Schluss sollte @info stehen.

Code (perl): (dl )

use strict;
use warnings;
use Data::Dumper;
use Win32::Process::Info;

my $wpi  = Win32::Process::Info->new;
my @info = $wpi->GetProcInfo;

my @list = grep{ $_->{Name} =~ /cmd\.exe$/ }@info;
print $_->{ProcessId}, "\n" for @list;
kill $_->{ProcessId} for @list;

Ich habe mal etwas umgebaut, die PIDs werden gefunden, aber der kill Befehl zeigt keine Wirkung. Eigentlich sollte das klappen, aber notepad.exe oder cmd.exe bleiben offen