Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Модуль JSON преобразует числа 
:(
    Опции темы
cyberblade
Дата 18.5.2019, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 17.2.2012

Репутация: нет
Всего: нет



Может я сам туплю или чего-то не понимаю... Использую модуль со CPAN - JSON
мне в ответе от сервера может прилетать значение с множеством нулей после запятой, например 0.000000001
до того как я начинаю парсить ответ сервера, число с плавающей точкой, после парсинга он его преобразует в целое (видимо для оптимизации): 1e-008

как можно отключить это кто-нить в курсе? Т. к. в разных полях могут приходить совершенно разные числа. 

Т. е. мне нужно сохранить оригинальный формат числа.

Код

#!\usr\bin\perl -w


use strict;
use warnings;

# use modules
use LWP::UserAgent;
use JSON;
use Data::Dumper;
use DateTime;

# vars
my $url = 'xxx';

    my $ua = LWP::UserAgent->new(timeout => 10);
    $ua->agent('Mozilla/5.0');
    $ua->env_proxy;

    my $response = $ua->get($url);

    my $j = decode_json $response->decoded_content;



Спасибо за помощь. 
PM MAIL   Вверх
arto
Дата 20.5.2019, 07:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



1. 1e-008 - не целое
2. 1е-008 !=  0.000000001
3. покажите данные
PM MAIL ICQ   Вверх
cyberblade
Дата 20.5.2019, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 17.2.2012

Репутация: нет
Всего: нет



Вот полный листинг программы вместе с тестируемым урлом.
Код

#!\usr\bin\perl -w


use strict;
use warnings;

# use modules
use JSON;
use LWP::UserAgent;
use Data::Dumper;
use DateTime;

# my $dt = DateTime->from_epoch( epoch => $epoch );
# $dt->set_time_zone( 'Asia/Yekaterinburg' );

# vars
my $url = 'https://yobit.net/api/3/info';

# start
my $json = geturl($url);

# write test file (res)
open(F,">test.txt");
print F Dumper($json);
close(F);

# subs 

sub geturl {

    # take url link
    my $url = shift;

    # use lwp
    my $ua = LWP::UserAgent->new(timeout => 10);
    $ua->agent('Mozilla/5.0');
    $ua->env_proxy;

    # get requset     
    my $response = $ua->get($url);
     
    # response
    if ($response->is_success) {
        return decode_json $response->decoded_content;
    }
    # error message
    else { die $response->status_line; return $response->status_line;}
}



Вот такие данные выдаёт api биржи 
"min_price":0.00000001,"

Вот так они сохраняются после парсинга JSON
'min_price' => '1e-008',
PM MAIL   Вверх
arto
Дата 20.5.2019, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



1. 0.00000001 и 1e-008, просто разная нотация:
# perl -e 'printf "%e %.8f\n", 0.00000001, 0.00000001' 
1.000000e-08
0.00000001
2. perldoc JSON
...
    number
        A JSON number becomes either an integer, numeric (floating point) or
        string scalar in perl, depending on its range and any fractional
        parts. On the Perl level, there is no difference between those as
        Perl handles all the conversion details, but an integer may take
        slightly less memory and might represent more values exactly than
        floating point numbers.

        If the number consists of digits only, this module will try to
        represent it as an integer value. If that fails, it will try to
        represent it as a numeric (floating point) value if that is possible
        without loss of precision. Otherwise it will preserve the number as
        a string value (in which case you lose roundtripping ability, as the
        JSON number will be re-encoded to a JSON string).
...
PM MAIL ICQ   Вверх
cyberblade
Дата 20.5.2019, 12:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 17.2.2012

Репутация: нет
Всего: нет



Ну я об этом в курсе, спасибо за попытку помочь... 

Вопрос в другом был, есть ли возможность вообще отключить это без бубна? Без разницы как будут приходить данные хоть в строковом, хоть в числовом значении.
Ибо JSON формат будет разный и прогонять определенные хеши через printf при выводе мягко говоря не очень правильный вариант. Кроме того это дополнительное процессорное время. Учитывая что такой хеш может быть размером более 20 мб. 

Ну и собственно я вам и говорил что JSON просто пытается конвертировать представление с плавающей запятой в целое значение если это возможно. Я читал этот мануал. 
Ибо в машинном представлении 1e-008 - это целое, но вы видите его разумеется как не целое ))

Или может есть какие-то другие нормальные модули, которые без своевольностей работают? =) 
Буду благодарен за подсказку

PM MAIL   Вверх
arto
Дата 21.5.2019, 06:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



могу порекомендовать либо filter_json_single_key_object, либо ковырять сам модуль.

Добавлено через 1 минуту и 54 секунды
могу порекомендовать либо filter_json_single_key_object, либо править сам модуль.
PM MAIL ICQ   Вверх
cyberblade
Дата 21.5.2019, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 17.2.2012

Репутация: нет
Всего: нет



Спасибо, гляну

Это сообщение отредактировал(а) cyberblade - 21.5.2019, 13:13
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1241 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.