Determining Process Information of Win process

[bit.surfer]

Hi,
I have a perl script which repeatedly calls an application I have written. Each time I pass different arguments to my application (i.e. number of threads to use or different input parameters). I'm trying to figure out how to capture the process information such as the number of I/O read /write bytes and other information that is available in the task manager. Loosely, my script is as follows (I've edited to abbreviate it - such as my command construction and some post-processing).

I've tried to use the Win32::Process::Info module - but just don't seem to be able to make it work. In the code below I want to determine the process information of the command executed by "system" at the point it is finishing (i.e. I want the final values). Any pointers?
Thx.

#!/usr/bin/perl

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

my @models = {
"model1",
"model2"};

my @cpus = ( 2, 4);

foreach my $model (@models) {

  foreach my $cpu (@cpus) {

    my $cmdstring = "\"myapp.exe\"";
    $cmdstring .= " NPROCESSORS=$cpu";
    $cmdstring .= " $model";
    $cmdstring .= " > nul";

    system($cmdstring);
  }
}

[salva]

You would probably be able to use Win32::API to access the OS functions providing that information. You would have to use OpenProcess to get a handle to the process from its PID and then, the functions detailed here to read its information. Finally, you would have to release the handle using CloseHandle.

I have some code doing something similar here.

BTW, my knowledge of Windows is quite limited. Take my advice with care!

[BrowserUk]

You would probably be able to use Win32::API to access the OS functions providing that information.

That's exactly what Win32::Process::Info does.

If that module is not working for him, it probably comes down to a problem with Win32::API, not working on his system.

And the most likely cause of that is a mismatch between the version of Win32::API and the perl he is using. Eg, One built with MSVC and the other with MinGW.

[Anonymous Monk]

I've tried to use the Win32::Process::Info module - but just don't seem to be able to make it work

This isn't reflected in your program :/

? why not ask taskman for this info, or pslist.exe or procexp.exe ?

[bit.surfer]

I've tried to use the Win32::Process::Info module - but just don't seem to be able to make it work

This isn't reflected in your program :/

I didn't want to start a conversation on something that wasn't working. I'd rather not prejudice any response around my bad attempt.

I will take a look at taskman, pslist.exe and procexp.exe also. I'm a relative newbie to Windows so I wasn't aware of these. Much happier doing this in Linux. I want the information so I can store it in a file for later usage.
Thx.

[Discipulus]

Maybe there is a simple solution to this. Add END{ system qq(tasklist /v /fo LIST /fi "PID eq $$") } to your child code and you'll have some useful info. If you want the whole mess of infos add instead END{ system qq(wmic  PROCESS where "processid=$$" get * /FORMAT:LIST) }


#cat child.pl
use strict;
use warnings;

print "I'm the child with PID $$\n";
sleep 3;
print "Exit now.." and exit 0;
#END{ system qq(tasklist /v /fo LIST /fi "PID eq $$") }
END{ system qq(wmic  PROCESS where "processid=$$" get * /FORMAT:LIST) 
+}


# call it from a oneliner
perl -e "system ($^X, qq(child.pl))"
I'm the child with PID 298184
Exit now..

Caption=perl.exe
CommandLine=C:\Perl\bin\perl.exe child.pl

[...]

ProcessId=298184

[...]


HtH
L*

[Bloodnok]

Not quite answering your question, but I've always found the following 2 books authored by Dave Roth to be more than very useful where Windoze is concerned...
• "Win32 Perl Scripting The Administrator's Handbook", ISBN: 1-57870-215-1
• "Win32 Perl Programming The Standard Extensions", ISBN: 1-57870-216-X