Bill, this is the snippet I am using:
use strict;
use warnings;
use Win32::Process::Memory;
my $line="";
my $proc = Win32::Process::Memory->new({ name=>'Trademaven.exe' }) or die;
my %memlist = $proc->get_memlist;
foreach (sort { $a <=> $b } keys %memlist) {
$line=$proc->hexdump($_, $memlist{$_}) . "\n";
if($line=~ m/(1[1-2][0-9][0-9]\.(00|25|50|75|5|0|\.))/){
print "\n******$1******\n";
}
}
And the error messages are ( a LOT of those, maybe 20 times the messages I
quote):
Use of uninitialized value in sprintf at
C:/Perl/site/lib/Win32/Process/Memory.p
m line 94.
substr outside of string at C:/Perl/site/lib/Win32/Process/Memory.pm line
94.
substr outside of string at C:/Perl/site/lib/Win32/Process/Memory.pm line
94.
Use of uninitialized value in sprintf at
C:/Perl/site/lib/Win32/Process/Memory.p
m line 94.
Use of uninitialized value in sprintf at
C:/Perl/site/lib/Win32/Process/Memory.p
m line 94.
substr outside of string at C:/Perl/site/lib/Win32/Process/Memory.pm line
94.
substr outside of string at C:/Perl/site/lib/Win32/Process/Memory.pm line
94.
Use of uninitialized value in sprintf at
C:/Perl/site/lib/Win32/Process/Memory.p
m line 94.
Use of uninitialized value in sprintf at
C:/Perl/site/lib/Win32/Process/Memory.p
m line 94.
substr outside of string at C:/Perl/site/lib/Win32/Process/Memory.pm line
94.
substr outside of string at C:/Perl/site/lib/Win32/Process/Memory.pm line
94.
Use of uninitialized value in sprintf at
C:/Perl/site/lib/Win32/Process/Memory.p
m line 94.
Use of uninitialized value in sprintf at
C:/Perl/site/lib/Win32/Process/Memory.p
m line 94.
substr outside of string at C:/Perl/site/lib/Win32/Process/Memory.pm line
94.
substr outside of string at C:/Perl/site/lib/Win32/Process/Memory.pm line
94.
Use of uninitialized value in sprintf at
C:/Perl/site/lib/Win32/Process/Memory.p
m line 94.
Use of uninitialized value in sprintf at
C:/Perl/site/lib/Win32/Process/Memory.p
m line 94.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
