@MSGID: 2:5036/26 64ddee0f
@REPLY: 2:460/5858 64da81de
@CHRS: CP866 2
@TID: hpt/w32-mvcdll 1.9.0-cur 27-02-03
Рад всех приветствовать! А особенно - Stas!

 Понедельник августа 14 23 22:33 Stas Mishchenkov писал к Gennadij Pastuhov:

 GP>> my $f = 4.0;
 GP>> my $j = JSON::encode_json({
 GP>     object =>> {
 GP>         value =>> $f,
 GP>>     }
 GP>> });
 GP>> print "j: ", $j;
 GP>> , то получим:
 GP>> j: {"object":{"value":4}}
 GP>> , т.е., незначащие нули усеклись. А как их сохранить?
 SM> my $f = `4.0`; Пробовал?

Конечно:
my $f = `4.0`;
my $j = JSON::encode_json({
    object => {
        value => $f,
    }
});
print "j: ", $j;

j: {"object":{"value":"4.0"}}

... Jonny wanna live
--- GoldED+/W32 1.1.5-041013     xenofont.chat.ru         skype pastuhovgena
 * Origin: Только единицы знают, что миллионы состоят из нулей. (2:5036/26)
SEEN-BY: 50/109 250/25 301/1 341/66 450/1024 451/31
463/68 467/888 4500/1
SEEN-BY: 5000/111 5001/100 5010/352 5015/42 46
5020/113 545 620 715 828 830
SEEN-BY: 5020/846 848 1042 4441 12000 5022/128
5030/49 115 500 1081 5036/26
SEEN-BY: 5049/1 162 5053/51 5054/89 5058/104
5059/37 5061/133 5066/18
SEEN-BY: 5080/102 5083/1 444 6090/1
@PATH: 5036/26 5020/1042 4441