Alejandro Santillan Iturres wrote:
> Well, I am getting closer to understand. Bill, what would be the sintax to
> find the number 1196.75?
> Maybe something like:
>
> my @results = $proc->search_float(1196.75);
> print $proc->hexdump($_, 0x32)."\n" foreach @results;
That should do it, but it has to be exact. Actual bytes (\x00\x98\x95\x44).
> What does the search_range_float means, and what is the syntax. Maybe
> something like:
> my @results = $proc->search_float(1196.00,1197.00);
> print $proc->hexdump($_, 0x32)."\n" foreach @results;
The above will look for a pair of floats one after the other with
the values 1196.0 and 1197.0 or (\x00\x80\x95\x44\x00\xA0\x95\x44)
You can modify search_pack so it shows the actual pattern and values by
adding the 3 prints below :
sub search_pack {
my ( $this, $packtype ) = ( shift, shift );
my $pattern = pack( $packtype, @_ );
$pattern =
sprintf( "\\x%02X" x length($pattern), unpack ("C*", $pattern));
my @array = ();
print "Packtype: '$packtype'\n";
print "Pattern: '$pattern'\n";
print "SearchValue: '@_'\n";
$this->search_sub( $pattern, sub { push @array, $_[0]; } );
return @array;
}
--
,-/- __ _ _ $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
