Expected value for example is 369790944 but unpack returns 46223868
Taking a different look at those values might be instructive, given that they should have some sort of binary relation when treated as uint64 values. Here's a one-liner that will read the integer values typed (actually, pasted) into STDIN, and spit out the corresponding bit sequence for the given value:
perl -lpe '$b=sprintf("%b",$_); $n=length($b); $_="$b ($n bits)"'
46223868
10110000010101000111111100 (26 bits)
369790944
10110000010101000111111100000 (29 bits)
^C
Who could have guessed that the value actually returned by your unpack usage was identical to the value expected, except that it's missing the 3 lowest bits! What could be going on in your script (or in its interaction with the database) that might be causing this?
The double values involve some extra work (and I'm not sure I'm doing this the "right" way to suit your purposes...)
perl -lne '$d=pack("d",$_);$b=unpack("b*",$d);printf("%s (%d bits)\n",
+$b,length($b))'
518819.748032
1000001110011000001111111011111101110001010101011111100010000010 (64 b
+its)
64852.468503656
0100100010000110110111111011111101110001010101011111011100000010 (64 b
+its)
^C
Hmm... let's try that another way...
perl -e '@ins=(518819.748032,64852.468503656);
for (0,1) { push @outs,unpack("b*",pack("d",$ins[$_])) }
$_ = ($outs[0] ^ $outs[1])|"0"x64; print join("\n","",@outs,$_,"")'
1000001110011000001111111011111101110001010101011111100010000010
0100100010000110110111111011111101110001010101011111011100000010
1100101100011110111000000000000000000000000000000000111110000000
The first line of 64 bits is the "expected" value, the second is the value returned by your unpack, and the third has a "1" wherever the previous two don't match. I'm not sure how informative that is, actually, but it's curious to see the amount (and position) of agreement between the expected and returned values.
Still, as I said, there's a serious chance that this particular pursuit of the bit patterns in doubles is misguided - e.g. I may be using a different notion of "double" from the one being used to populate those binary fields.
UPDATE: Regarding the doubles, please note that adding an extra decimal place of precision to either (or both) the expected and returned values that you quoted will affect the position and amount of (dis)agreement between the two corresponding bit strings. You should look at the actual bit string as stored in the database, and see how many significant digits it takes to render it accurately as a decimal number (assuming you know how to interpret the binary(8) string correctly, of course).
ANOTHER UPDATE: For that matter, removing significant digits has an effect as well. Just for grins, I rounded off the "returned" value to 64852.468504 (removing the 3 least significant digits), and with that, the three binary strings (expected, returned, diff) came out like this:
1000001110011000001111111011111101110001010101011111100010000010
1000001110011000001111111011111101110001010101011111011100000010
0000000000000000000000000000000000000000000000000000111110000000
Now, you want to see something really curious? Recall that your two uint64 values would have matched perfectly if the "returned" value had simply been shifted up 3 bits -- i.e. multiply by 8. Well:
perl -e '@ins=( 518819.748032, 64852.468504*8 ); # less "precise" ret
+urn value * 8!
for(0,1){ push @outs,unpack("b*",pack("d",$ins[$_])) }
$_ = ($outs[0] ^ $outs[1])|"0"x64; print join("\n","",@outs,$_,"")'
1000001110011000001111111011111101110001010101011111100010000010
1000001110011000001111111011111101110001010101011111100010000010
0000000000000000000000000000000000000000000000000000000000000000
If you ever succeed in coming up with an explanation for this, you will have surpassed me. Have fun with that. |