Floating point number decoding in JSON::XS - tokuhirom's blog
http://d.hatena.ne.jp/hiratara/20121024/1351054828 https://rt.cpan.org/Public/Bug/Display.html?id=80350 In some environment, JSON::XS's floating point number decoder has an issue. Here is code: use v5.16.0; use JSON::XS; my $dat = decode_json( "[0.6]" )->[0]; say int ( 24 / $dat ); say int ( 24 / 0.6 ); Outputs: 39 40Why?? The result of Devel::Peek::Dump($dat) is following: SV = NV(0x26fc7d8) at 0
JSON::XSで作られる浮動小数点数でハマった話 - Pixel Pedals of Tomakomai
JSON::XSを使うと、小数は浮動小数点数にパースしてくれる。 use JSON::XS qw(decode_json); my ($double) = @{decode_json("[0.6]")}; この値、printすると "0.6" なのだけど、0.6とイコールではない。 print $double, "\n"; # 0.6 print +($double - 0.6), "\n"; # 1.11022302462516e-16 なので、直感と違う振る舞いをしたりする。 # 3 / 0.6 == 5 printf "%s / %s == %s\n", 3, 0.6, int(3 / 0.6); # 3 / 0.6 == 4 <- unexpected :( printf "%s / %s == %s\n", 3, $double, int(3 / $double); 仕方ないので
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
