Floating point internal representation..

DougAtHost

In perl, how can I get the actual internal floating point data for a variable? In C, I can do something like this

Expand|Select|Wrap|Line Numbers

 
{

    float f = 5.88;
 
    unsigned char a[4];
 
    memcpy(a, (void *)&f, 4)
 
    printf("0x%x  %x  %x  %x\n", a[3], a[2], a[1], a[0]);

}

This prints "0x40 bc 28 f6" -> the IEEE floating point representation for 5.88..

I need to do the same with a statement like

my $f = 5.88;

Thanks,
Doug

DougAtHost

Well, that was as clear as mud, but it looks like the answer is to pack/unpack.

Expand|Select|Wrap|Line Numbers

     my $f = 5.88;

    unpack('L', pack('f',  $f));

Floating point internal representation..

Post your reply

Similar topics