V2
еще раз гляну щас
Size: a a a
2021 March 11
DS
Конкатенация, кстати, тоже делает то же самое
S
добрый день, подскажите плз, есть структура данных, например ссылка на хеш, в хеше есть значение как число. делаю encode_json() все ок, все как надо, никаких манипуляция с данными не делаю, только какие-то сравнения, делаю еще раз encode_json() уже в конце функции и там пиздец где должны быть числа уже строки. как быть господа, кто-то с таким сталкивался? не хочется держать доп копию струткуры, это какое-то расточительство ресурсов.
Использование числа в строковом контексте меняет его представление.
S
Хорошего способа это вылечить нет
DS
Плюсноль 🙂
S
Самый частый - генерировать структуру для сериализации самому, используя для чисел +0
S
А для строк - ""
ММ
Есть посередине eq 1.0
DS
Есть посередине eq 1.0
Это мой код, я написал специально чтобы показать
V2
жесть, после db->do("sql", $val->{id}) становится строкой
ММ
Конкатенация, кстати, тоже делает то же самое
Конкантенация - операция со строкой
AK
во множественном числе
ММ
Можно циклом прогнать и кастьонуть в инт int(h->{field})
ММ
Сорян за очепятки, на морозе не попадаю
SZ
У тебя тут два запроса - один ставит куку, второй использует. А у меня три, первый ставит, второй использует от первого запроса и добавляет свою и третий использует обе. Вот на шаге "добавляет свою" все и ломается.
Как ты это делаешь?
SZ
Короче я не разобрался, поэтому всё в один файл: https://paste.ubuntu.com/p/T9S2yBmtg4/
И
use strict;
use warnings;
use JSON;
my $h = {
one => 1.0
};
print encode_json($h), "\n";
if ($h->{one} == 1.0) {
print "Equal\n";
}
print encode_json($h), "\n";
if ($h->{one} eq 1.0) {
print "Equal\n";
}
print encode_json($h), "\n";
use warnings;
use JSON;
my $h = {
one => 1.0
};
print encode_json($h), "\n";
if ($h->{one} == 1.0) {
print "Equal\n";
}
print encode_json($h), "\n";
if ($h->{one} eq 1.0) {
print "Equal\n";
}
print encode_json($h), "\n";
Кстати, JSON::PP (https://perldoc.perl.org/JSON::PP) у меня таких преобразований не делает и выводит:
Модуль JSON - это что такое? Не могу найти его в списке модулей на https://perldoc.perl.org.
{"one":1}
Equal
{"one":1}
Equal
{"one":1}Модуль JSON - это что такое? Не могу найти его в списке модулей на https://perldoc.perl.org.
W
Если что, лучше использовать вот этот модуль: https://metacpan.org/pod/Cpanel::JSON::XS
И
Интересненько. По описанию можно было подумать, что JSON::PP и JSON::XS должны одинаковый json давать на выходе.
JSON::PP - JSON::XS compatible pure-Perl module.