Printing byte as 2 Hex characters

[ShiningPerl]

I am studying video and other kind of files that deals with packed data. I want to break down a flv file into its byte and printing on the screen but I face alot of difficulties. My desired output to print 0b11110000 as 0xF0 but all I got was 0. Is there something wrong with the print format?

#! /usr/bin/perl

$data_file="1.flv";
open (FILE, $data_file) or die ("Could not open file!"); 

my $len=0;

while($len!=7){
read (FILE, $buffer, 1);

print "Char Format: ";
print "$buffer ";

print "Hex Format: ";
printf ("%lX ", $buffer);

print " Test Print Format";
$test=255;
print " ".$test." ";
printf ("%lX", $test);

print "\n";
$len++;
}

print "\n=====End of Script=====";

close(FILE);

[Eliya]

printf ("%lX ", $buffer);

You probably want ord:

printf ("0x%lX ", ord $buffer);

because what you have in $buffer is a single byte string, not a number.

A more direct way might be to use unpack "H*", ...

$ perl -E'say unpack "H*", "foobar"'
666f6f626172

or maybe unpack "(H2)*", ..., as in

$ perl -E'say "0x$_" for unpack "(H2)*", "foobar"'
0x66
0x6f
0x6f
0x62
0x61
0x72

in which case your buffer could consist of more than one byte.

[ShiningPerl]

Thank you. This worked as intended.

[ikegami]

[ I went sideways a bit since this is a learning exercise. Hopefully, this will put you in the right mindset to solve similar problems in the future. ]

My desired output to print 0b11110000 as 0xF0 but all I got was 0

This alone isn't very clear.

Is your input the string 0b11110000, the number 0b11110000 (240) or the character 0b11110000 (240)?

Is your desired output the string 0xF0, the number 0xF0 (240) or the character 0xF0 (240)?

One would generally convert the input to a number,

If your input is the string 0b11110000	my $num = oct($input);
If your input is the number 240	my $num = $input;
If your input is the character 240	my $num = ord($input);
If your input is the character 240	my $num = unpack('C', $input);

do something with it, then format the number as desired.

If your desired output is the string 0xF0	my $output = sprintf("0x%02X", $num);
If your desired output is the number 240	my $output = $num;
If your desired output is the character 240	my $output = chr($num);
If your desired output is the character 240	my $output = pack('C', $num);

Looking at your code, you want the the string 0xF0 from character 0b11110000, so

printf("0x%02X", ord($input));

or

printf("0x%02X", unpack('C', $input));

oct, ord, unpack, sprintf, printf, chr, pack

[ShiningPerl]

Thank you so much, this is so much detail contributed on your side.

[KevinZwack]

Here is one I didn't see listed that I often use for debugging...

printf "0x%*v2.2X\n", ' ', $payload;

If $payload is several bytes of data, this will print something like:

0x01 02 03 CF

[Anonymous Monk]

ord was very useful. Thanks for your reply

[SuicideJunkie]

You should include the output of your program in a second code tag. Perhaps the value you read was zero? Pipe it to a file and copy paste for accuracy.

Also, I expect you probably would prefer the format printf('0x%2X'...

PS: an error message of 'Could not open file' is very vague. Try "Could not open file '$data_file': OS told me '$!'\n"

[toolic]

A search of CPAN for flv looks promising.

[ShiningPerl]

I am hoping to extend the knowledge gained in manipulating FLV files to other formats.