Re^2: Win32: Multiple processes with the same name

That post helped greatly, thanks BrowserUK.

I am able to determine the PIDS, but now I need to get the CPU info. Here's what I came up with using win32-process-info:

(note: I've been using perl for less than a week so this script may be a bit ugly)

use Win32::Process::Info;
Win32::Process::Info->Set (variant => 'WMI');
my $pi = Win32::Process::Info->new();
for ( $pi->ListPids )
{
    my ($info) = $pi->GetProcInfo ($_);
    if ($info->{Name} =~ /notepad/gi ) {
    $pid =  $info->{ProcessId};
    push @pids, $pid;
    }
}
print "@pids";
[download]

After I got that working, I started researching the win32::process::perf module. However, that module seems to accept only the name of the process instead of the PID. That won't work for me here.

Any ideas on how to match the PIDs with CPU utilization?

the help has been much appreciated!

Comment on Re^2: Win32: Multiple processes with the same name Download Code

Replies are listed 'Best First'.
Re^3: Win32: Multiple processes with the same name by BrowserUk (Patriarch) on Feb 08, 2006 at 22:39 UTC
Did you try running my example above? It produces all the information you require. Learn to use Data::Dumper to inspect anything you do not understand. It is verbose, but clearly displays the structures involved. See also Tye's References quick reference for the syntax required to use them. Anyhow, here's an annotated version that should be reasonable to follow, though you will have to get up to speed on Perl's datasteuctures quite quickly as W::P::I makes heavy use of them. #! perl -slw use strict; use Data::Dumper; use Win32::Process::Info; ## Get an array of hashes for every process in the system my @info = Win32::Process::Info->new ->GetProcInfo({no_user_info=>1}); ## The hashes contain all the information you will ever need! ## This displays the fields available for one of the processes print Dumper $info[ 0 ]; my @notepads; ## A place to hold the hashes that match the name for my $procRef ( @info ) { ## Scan them all ## Extract the Name, ProcessId KernelModeTime & UserModeTime value +s ## Using a hash slice my( $name, $pid, $kcpu, $ucpu ) = @{ $procRef }{ qw[Name ProcessId KernelModeTime UserModeTime ] + }; if( $name =~ m/notepad/i ) { ## If it matches the name you are loo +king for ## Add an anon. array containing the PID and the combined Kern +elMode ## & UserMode time to the array push @notepads, [ $pid, $kcpu + $ucpu ]; } } die 'There are no notepads runnning' unless @notpads; ## Sort the @notepads Array of Arrays (AoA) by cpu utilisation, descen +ding. @notepads = sort{ $b->[ 1 ] <=> $a->[ 1 ] } @notepads; ## The first element (PID) of the first @notepads element ## has the highest cpu utilisation, so kill it. ## On win32, any signal other than 0, 2, & 21 seems to be fatal. ## There may be other non-fatal signals, but it is boring testing for +them. kill 1, $notepads[ 0 ][ 0 ]; [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^4: Win32: Multiple processes with the same name by n8wood (Initiate) on Feb 09, 2006 at 14:12 UTC
Wow, that seems to do the trick, thank you! I also appreciate the notation throughout the script and the data dumper module should help me greatly in the future.	[reply]