#!/usr/local/bin/perl5 -w
# By Rusty Dodson, 08/27/96.
#
# Convert signed 2-byte integer image to 4-byte float:
# set buffer size, initialize input buffer:
$bufsiz = 1024;
$inbuf = "";
while (1) {
# infinite loop
# read a chunk of data from the input data stream,
remembering number
# of bytes read ($n_in):
$n_in = read(STDIN, $inbuf, $bufsiz);
# use "unpack" to convert integer data to the
array "@inval":
@inval = unpack("s*", $inbuf); #
s = signed short integer
# "pack the @inval array into a chunk of floating-point
data:
$outbuf = pack("f*", @inval);
# pack as float
# write the float chunk to the output stream:
$n_out = syswrite(STDOUT, $outbuf, $n_in * 2);
# outbytes is 2*inbytes
print STDERR "read $n_in, wrote $n_out bytes...\n";
# when end-of-file is reached, break the infinite
loop:
exit 0 if(eof(STDIN));
} |
