Alejandro Santillan Iturres wrote:
> Any documentation about this module?
> I need to access a number (a floating one, or maybe an integer) within
> a windows application. I thought that this module would be adecuate an I
> installed it. So far I could not understand what the module doeas. I am not
> much skilled in memory managing and I tried to play a bit with the sentences
> written in the module examples:
>
> my %memlist = $proc->get_memlist;
> printf " %08X -> %08X : Len=0x%X\n", $_, $_+$memlist{$_}, $memlist{$_}
> foreach (sort {$a <=> $b} keys %memlist);
>
> and with:
>
> print $proc->hexdump($from, $len);
> $getvalue = $proc->get_i16($from, $undef_val);
>
> Anyway I could'nt find a way of getting the number (it is a number
> like 122356, always positive, lying somewhere in the memory map of the
> application). I am very confused about using this module. Maybe I am not
> gettin the complete memory allocated by the program. Could someone please
> point me to any source of knowledge about it. Is there any discussion group
> a propos?
Upon further testing, it appears there is a bug or two in the module,
while the pack subs were working, the shortcuts weren't :
Line 220 of Memory.pm:
sub search_range_packs {
my ( $this, $packtype ) = ( shift, shift );
# $this->search_range_pack( $packtype x ( scalar(@_) - 1 ), @_ );
$this->search_range_pack($packtype x (scalar (@_) - 2), @_);
}
I replaced the commented out line with the one below it since it
should be subtracting 2 from @_ IMO.
Line 238 of Memory.pm:
sub search_packs {
my ( $this, $packtype ) = ( shift, shift );
# $this->search_pack( $packtype x ( scalar(@_) - 1 ), @_ );
$this->search_pack($packtype x scalar @_, @_);
}
I replaced the commented out line with the one below it since it
shouldn't be subtracting 1 from @_ IMO.
This would affect these routines:
search_range_i8
search_range_u8
search_range_i16
search_range_u16
search_range_i32
search_range_u32
search_range_float
search_range_double
search_i8
search_u8
search_i16
search_u16
search_i32
search_u32
search_float
search_double
--
,-/- __ _ _ $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
