- or download this
packing float as network long:
+-----+ +-----------+ +------------+
...
+------------+ +-----------+ +-----+
|network long|--->|native long|--->|float|
+------------+ +-----------+ +-----+
- or download this
use strict;
use IO::File;
...
my $float = unpack 'f', pack 'L', unpack 'N', $network_long;
printf "%0.4f\n", $float;
}
- or download this
On SUN: float->network_long->disk
On WindowsXP: disk->network_long->float
- or download this
On WindowsXP: float->network_long->disk
On SUN: disk->network_long->float