如何在Windows下以編程方式確定我的Perl程序的內存使用情況？

我在Windows下使用ActivePerl作爲我的Perl腳本，所以我可以通過Windows任務管理器中的「進程」選項卡查看它使用了多少內存。我發現不得不這樣做，而不麻煩。有另一種方法來確定我的Perl程序的內存使用情況嗎？如何在Windows下以編程方式確定我的Perl程序的內存使用情況？

來源

2009-07-12 Zaid

如果您使用ActivePerl，其中一些解決方案將無法工作。我已經拼湊出了一些我認爲應該可以在ActivePerl中使用的東西，但它尚未在5.10以下進行測試，因此您的里程可能會有所不同。作爲大同回答，您可以得到不同的數字取決於你問什麼，即MaximumWorkingSetSize VS WorkingSetSize等

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 ProcessId=$$"); 

    foreach my $proc (in($processes)) { 
     return $proc->{WorkingSetSize}; 
    } 
} 

print 'Memory usage: ', memory_usage(), "\n";

來源

2009-07-13 17:22:34 Charlie

一種方法是使用Proc::ProcessTable：

use Proc::ProcessTable; 

print 'Memory usage: ', memory_usage(), "\n"; 

sub memory_usage() { 
    my $t = new Proc::ProcessTable; 
    foreach my $got (@{$t->table}) { 
     next 
      unless $got->pid eq $$; 
     return $got->size; 
    } 
}

來源

2009-07-12 10:47:03 chaos

如果你已經安裝了Cygwin這將只能在Windows上運行。 – Joel 2011-05-18 14:57:52

嘗試：

open(STAT , "</proc/$$/stat") 
    or die "Unable to open stat file"; 
@stat = split /\s+/ , <STAT>; 
close(STAT);

你可以看看「Determining memory usage of a process」和PerlMonks 「Determining the Memory Usage of a Perl program from within Perl」。

來源

2009-07-12 11:08:32 joe

Krish，我修正了你的代碼格式，但我不確定這個答案是否與Windows環境有關。 – paxdiablo 2009-07-12 11:15:21

WMI是在Windows下從程序中檢查這種東西的標準方式。我相信你會尋找this。

MaximumWorkingSetSize是正在使用的物理RAM的值。 VirtualSize是您使用的總地址空間的大小。

來源

2009-07-12 11:10:48 paxdiablo

如何在Windows下以編程方式確定我的Perl程序的內存使用情況？

回答

相關問題