Re: BIN to HEX


P is for Practical
	PerlMonks

Re: BIN to HEX

by Roger (Parson)

on Aug 22, 2006 at 07:01 UTC ( [id://568786]=note: print w/replies, xml )

Need Help??

in reply to BIN to HEX

You could first open the file, then read the byte in from the file handle, then inspect the byte.

# open a file
open MYFILE, '<myfile.bin' or die 'can not open file';

# read a byte
my $byte;
read MYFILE, $byte, 1; # do perldoc -f read to see full doco

# check the byte
if ($byte > 0x30) {
  print "Byte is greater than 0x30\n";
} else {
  print "Byte is less than or equal to 0x30\n";
}

# close the file
close MYFILE;
[download]

Comment on Re: BIN to HEX Download Code

Replies are listed 'Best First'.
Re^2: BIN to HEX by eyepopslikeamosquito (Archbishop) on Aug 22, 2006 at 11:26 UTC
If the file is binary, you should add: `binmode MYFILE;` [download] right after the open. Also the line: `if ($byte > 0x30) {` [download] should read: `if (ord($byte) > 0x30) {` [download]	[reply] [d/l] [select]
Re^2: BIN to HEX by betterworld (Curate) on Aug 22, 2006 at 11:15 UTC
`if ($byte > 0x30) {` Shouldn't that be `ord($byte) > 0x30`?	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://568786]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others cooling their heels in the Monastery: (4)

As of 2024-04-20 00:55 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found