develooper Front page | perl.perl6.users | Postings from February 2019

Re: binary test and position?

Thread Previous | Thread Next
ToddAndMargo via perl6-users
February 2, 2019 03:37
Re: binary test and position?
Message ID:
On 2/1/19 7:22 PM, ToddAndMargo via perl6-users wrote:
> Hi All,
> On a type Buf, what do I use to check for the
> position of a byte pattern?
> Many thanks,
> -T

Basically, what am I doing wrong here?

$ p6 'my $handle=open("filever.exe", :bin, :ro); my Buf $b; $b= 
$; say $b; say $b[2..4];; if ( $b[2..4] eq 0x90,0x00,0x04 
) {say "y";} else {say "n"}; $handle.close;'
Buf[uint8]:0x<4D 5A 90 00 03>
(144 0 3)

I am testing to see if the pattern 0x90 0x00 0x04 exists,
which is does not.

Thread Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About