W
Говорилось что это типа из базы, а в базе у нас обычно напряженка с вложенными хешами.
Size: a a a
2021 May 04
W
Так что ТСу может прокатить
W
Ну а дальше, если не прокатит, - пусть конкретизирует задачу.
d
Вложенных хешей нет. Плоская.
А вот вариант write_to_file по одному полю мне не подходит. Там дальше json будет...
А вот вариант write_to_file по одному полю мне не подходит. Там дальше json будет...
W
И что вам мешает писать в файил в JSON формате?
W
И почему это вам не подходить, если JSON::XS делает, фактически, так-же.
d
Да ничего не мешает, я так и пишу. Но надо зачистить
undef-значения перед encode_json.W
Я вам уже показал как это сделать. Как плюс - можете не использовать encode_json. Если прямо хочется - переливайте в новый хеш и уже на нем encode_json делайте.
AP
сделать новый хеш из старого пейргрепом и заенкодить джейсон
AP
$ perl -MList::Util=pairgrep -MJSON -E '%h=(s=>undef, r=>23, ll=>99, tt=>undef); say encode_json +{pairgrep {defined $b} %h}'
{"r":23,"ll":99}AP
с точки зрения быстродействия, я на стороне вайла, но тогда надо енкодинг в джейсон делать руками
SZ
Какое соотношение ундеф ко всем полям? Если ундефов много, то лучше копипастить грепом
d
Много. Где-то с cотню полей, больше половины undef.
IB
Я предлагаю все-таки профилировать =)
IB
Все-таки мне кажется что это не является узким местом =)
SZ
У вайла минусы: надо сериализатор самому писать и не факт, что это будет быстро. Короче я за греп :)
SZ
AP
ага, я тож про это сказал. имеет смысл сериализацию скаляра тогда на иксесе сделать :)
AP
код сериализации скаляра можно из леманновского модуля просто скопировать
YK
use List::Util 'pairgrep';
write_to_file(+{ pairgrep { defined $b } %$hashref });