Question

I’m looking for a way to take the TEXT characters from a 4byte BINARY file to array or TEXT file,

Lets say my input file is:

00000000  2e 00 00 00 01 00 00 00  02 00 00 00 03 00 00 00  |................|
00000010  04 00 00 00 05 00 00 00  06 00 00 00 07 00 00 00  |................|
00000020  08 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000030  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00000070  00 00 00 00 00 00 00 00                           |........|
00000078

And my desired output is:

46,1,2,3,4,5,6,7,8,9,0,0...

The output can be a TEXT file or an array.

I notice that the pack/unpack functions may help here, but I couldn’t figure how to use them properly,

An example would be nice.

Answer 1

Use unpack:

local $/;
@_=unpack("V*", <>);

gets you an array. So as an inefficient (don’t try on huge files) example:

perl -e 'local$/;print join(",",map{sprintf("%d",$_)}unpack("V*",<>))' thebinaryfile