| Subject: | bug info: Memory exhausted |
| Date: | Wed, 21 Nov 2007 23:32:54 +0800 |
| To: | bug-Win32-SystemInfo [...] rt.cpan.org |
| From: | "xb liu" <perl123 [...] gmail.com> |
Win32-SystemInfo-0.09 and 0.10
perl, v5.8.8 built for MSWin32-x86-multi-thread(with 18 registered patches,
see perl -V for more detail),Binary build 822 [280952] provided by
ActiveState http://www.ActiveState.com
Built Jul 31 2007 19:34:48.
OS: Microsoft Windows XP [Version 5.1.2600]
CPU: intel Core(TM)2 Duo 2.2GHz
Memory: 2G
BUG Info:
Memory exhausted
try to run the following code, and see your memory usage information in
Windows Task Manager.
use Win32::SystemInfo;
my %mHash = ( );
while (1) {
Win32::SystemInfo::MemoryStatus(%mHash,"MB");
for (keys %mHash){print "$_: $mHash{$_}\n";}
printf("%dM/%dM\n", ($mHash{TotalPhys} - $mHash{AvailPhys})/1.024,
$mHash{TotalPhys} );
#sleep 1;
}