#!/usr/bin/perl --
use strict;
use warnings;

use Carp qw/ /;
use Data::Dump qw/ dd /;

Main( @ARGV );
exit( 0 );
sub Main {
    ...
    while(not eof $filehandle){
        my $record = ReadJiggy( $filehandle );
        dd( $record );
    }
    
}

sub ReadJiggy {
    my( $fh ) = @_;
    return [
        ReadInt32( $fh ),
        ReadInt32( $fh ),
        ReadFloat( $fh ),
        ReadFloat( $fh ),
        ReadFloat( $fh ),
    ];
}

sub ReadBytes {
    my( $fh, $bytes  ) = @_;
    $bytes or Carp::croak 'Usage: ReadBytes( $filehandle, $bytes ) ';
    my $readed = read $fh, my($data) , $bytes;
    $readed == $bytes or Carp::carp "Only read($readed) but wanted($by
+tes): $! ## $^E ";
    $data;
}

use constant CAN_PACK_QUADS => !! eval { my $f = pack 'q'; 1 };
sub Int8   { unpack 'c', $_[-1] }
sub UInt8  { unpack 'C', $_[-1] }
sub Int16  { unpack 's<', $_[-1] }
sub UInt16 { unpack 'S<', $_[-1] }
sub Int32  { unpack 'l<', $_[-1] }
sub UInt32 { unpack 'L<', $_[-1] }
sub Int64  { unpack( ( CAN_PACK_QUADS  ? 'q<' : 'a8' ), $_[-1] ) }
sub UInt64 { unpack( ( CAN_PACK_QUADS  ? 'Q<' : 'a8' ), $_[-1] ) }
sub ReadInt8   { Int8(    ReadBytes( $_[-1], 8 /8 ) ); }
sub ReadUInt8  { UInt8(   ReadBytes( $_[-1], 8 /8 ) ); }
sub ReadInt16  { Int16(   ReadBytes( $_[-1], 16/8 ) ); }
sub ReadUInt16 { UInt16(  ReadBytes( $_[-1], 16/8 ) ); }
sub ReadInt32  { Int32(   ReadBytes( $_[-1], 32/8 ) ); }
sub ReadUInt32 { UInt32(  ReadBytes( $_[-1], 32/8 ) ); }
sub ReadInt64  { Int64(   ReadBytes( $_[-1], 64/8 ) ); }
sub ReadUInt64 { UInt64(  ReadBytes( $_[-1], 64/8 ) ); }
sub Float  { unpack 'f', $_[-1] }
sub ReadFloat  { Float(  ReadBytes( $_[-1], 32/8 ) ); }
#~ perlpacktut says
#~ f  A single-precision float in native format.
#~ d  A double-precision float in native format.
#~ see perlport
sub Double{ unpack 'd', $_[-1] }
sub ReadDouble{ Float(  ReadBytes( $_[-1], 32/8 ) ); }
[download]