Search Results

Try using dd to convert the file, e.g....$ printf "abc\000\000\000de\000" >file1

$ dd if=file1 of=file2 cbs=3 conv=unblock
0+1 records in
0+1 records out
12 bytes (12 B) copied, 0 s, Infinity...

Assuming the file's content is an integral number of records, Corona688's solution will encounter the EOF during the first attempt to read in a new record. At that point, bpos is 0 and there's...

Here is my od-thru-awk solution. I used a slightly different approach: count the number of zero bytes and if it's < blocksize output the block.

od -tu1 -An -w1 -v your_binary_file | awk '{
...

Read in chunks with dd, test against a file of the same size full of binary zeroes, print if nonzero.
dd if=/dev/zero of=zero bs=31744 count=1

while dd count=1 bs=31744 > test
do
diff...

od -An -v -tu1 binfile | tr -cs '[:digit:]' '[\n*]' | > binfile.fixed awk '
NR >= r {
if (int($0) == 0)
next
r = NR + 31744
...

I'm no master of perl but this should do what you want:

#!/usr/bin/perl
open INFILE, "<", "binary" or die $!;
open OUTFILE, ">", "bin_fixed" or die $!;
binmode INFILE;
binmode OUTFILE;
my...