4

我正在使用以下 perl 程序,它使用 WMI 类 Win32_Process 来确定进程的内存使用情况

use strict;
use warnings;
use Win32::OLE qw/in/;
sub memory_usage()
{
    my $objWMI = Win32::OLE->GetObject('winmgmts:\\\\.\\root\\cimv2');
    my $processes = $objWMI->ExecQuery("select * from Win32_Process where Name=\'notepad.exe\'");
    my $memory = 0;

    foreach my $proc (in($processes))
    {
         $memory = $memory + $proc->{WorkingSetSize};
    }
    return $memory;
}
print 'Memory usage: ', memory_usage(), "\n";

WMI 类 Win32_Process 及其属性在 MSDN 上给出

问题是它计算工作集内存,我想计算私有工作集内存,在链接页面上没有定义任何属性

有什么方法可以从这个类计算私有工作集内存吗?

4

1 回答 1

5

更改Win32_ProcessWin32_PerfRawData_PerfProc_Process并将WorkingSetSize属性更改为WorkingSetPrivate。这将为您提供私有工作集。

http://msdn.microsoft.com/en-us/library/windows/desktop/aa394323(v=vs.85).aspx

于 2013-04-10T22:59:47.407 回答