Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Re: Searching binary data

by Shendal (Hermit)
on Mar 14, 2002 at 19:05 UTC ( #151785=note: print w/replies, xml ) Need Help??


in reply to Re: Searching binary data
in thread Searching binary data

After some coersion, your response led me down the proper path. Here's my updated code snippet:
my $match = pack 'H*', '53005f00560045005200530049004f004e005f004' . '9004e0046004f0000000000bd04effe00000100'; open(FILE,$file) or die $!; while (<FILE>) { if (/$match(\S{2})(\S{2})(\S{2})(\S{2})/) { print "Found match!"; print join('.',map {unpack 'H*',$_; } ($1,$2,$3,$4); } } close(FILE);
I think my confusion rested in how perl would handle a binary file. Seems that the DWIM held true... I was making it harder than it was.

Thanks for your help!

Cheers,
Shendal

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://151785]
help
Chatterbox?
[Discipulus]: it is for my father: it is impossible to tell him to learn a newer OS
[Lady_Aleena]: To tell him or teach him?
Discipulus anyway xp is still the best lowend game machine
[Discipulus]: both: everyting must be identical in the new v-machine
[Lady_Aleena]: So putting a nice DE or WM up on a Linux machine is not an option?
[Discipulus]: i need some converter to have directly an OVF format directly: at the moment i'm trying with vmware converter standalone
[Lady_Aleena]: I don't know what to tell you. I can barely get my Linux machine to do things I want.
[Discipulus]: if DE or WM means desktop env and win manager.. no, not an option
[Lady_Aleena]: That's what they mean, at least to me. 8)
[Discipulus]: in the first attempt i failed, with an not usable v-machine.. ;=)

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (11)
As of 2017-05-22 18:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?