Converting Files

[Courtney1306]

I am trying to convert a binary file into a CSV file in Perl. I have the binary file saved on my computer and I need to import that into Perl. I then want to convert it to a CSV and save under a new name to be used in a Vector Signal Processor. Does anyone have code to help me with this? I am new to this programming language and don't know where to start. Thanks!

Courtney

 

[feherke]

Hi

First of all you could tell us what kind of binary format it is. JPEG is also binary...

Feherke.

http://rootshell.be/~feherke/

 

[Courtney1306]

The basic format:

Proprietary binary data file composed of several header fields of unsigned binary data followed by a list of 2 byte signed data items.

I want to take the data items and convert them into a CSV file.

 

[ishnid]

several header fields" is too vague to give you any definite answers to anything, I'm afraid.

 

[Courtney1306]

There are 4 parameters and each has a different set unsigned bytes. They vary from 1 to 8, adding up to 18 total unsigned bytes.

 

[cdlvj]

This is what you would do in a generic way.
read, grab off bytes out of the read in line
and then use unpack to convert to ascii

$rc=open(INFILE, "<$bDir\\$File"); 
binmode(INFILE);
$rco=open(OUTFILE, ">$OFile"); 
## assume each binary line is 100 bytes
while(1)
	## Read in 1st 100 bytes 
	$rc=sysread(INFILE, $line,100);
        if (nomorelines)
                 { LAST };
        ## grab input data
        $byte = substr($line,1,2);
        ## see unpack
        $number = unpack("i", $byte);

	print OUTFILE ($number . "," . "\n") ;