Alejandro Santillan Iturres wrote:
> 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";
> }
> }
I don't get that error.
Here's the code - you could temporarily put a print in the loop to
print all the vrbls out that are pertinent and see what the cause is
(probably $offset is exceeding $to somehow) :
for ( my $offset = 0 ; $addr < $to ; $offset += 16, $addr += 16 ) {
$output .= sprintf( "%08X : %s: %s\n",
$addr,
substr( $buf_hex, $offset * 3, 48 ),
substr( $buf_show, $offset, 16 ) );
}
> 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.
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
