SZ
то есть у меня есть число я его пихаю в json если я засуну туда как число он покажет с e-05 ме нужно чтобы он пказал 0.000123
Криво пихаешь, да?
Size: a a a
2021 April 01
SZ
@PerlBanjoBot $ perl -MJSON::PP=/./ -le 'print encode_json {orig => 434e-05, str => sprintf "%.10f", 434e-05}'
P
@PerlBanjoBot $ perl -MJSON::PP=/./ -le 'print encode_json {orig => 434e-05, str => sprintf "%.10f", 434e-05}'
{"str":"0.0043400000","orig":0.00434}
https://PerlBanjo.com/dc2c6de542
https://PerlBanjo.com/dc2c6de542
V2
perl -e 'use JSON::XS qw(encode_json); $a=1/100000; print encode_json {a=>$a}'
V2
perl -e 'use JSON::XS qw(encode_json); $a=1/10000; print encode_json {a=>$a}' без одного нуля уже как надо
SZ
@PerlBanjoBot $ perl -MJSON::PP=/./ -le 'print encode_json {orig => 1/100000, str => sprintf "%.10f", 1/100000}'
P
@PerlBanjoBot $ perl -MJSON::PP=/./ -le 'print encode_json {orig => 1/100000, str => sprintf "%.10f", 1/100000}'
{"orig":1e-05,"str":"0.0000100000"}
https://PerlBanjo.com/8acd252a95
https://PerlBanjo.com/8acd252a95
SZ
@PerlBanjoBot $ perl -Mbignum -MJSON::PP=/./ -le 'print encode_json {orig => 1/100000, str => sprintf "%.10f", 1/100000}'
P
@PerlBanjoBot $ perl -Mbignum -MJSON::PP=/./ -le 'print encode_json {orig => 1/100000, str => sprintf "%.10f", 1/100000}'
encountered object '0.00001', but neither allow_blessed, convert_blessed nor allow_tags settings are enabled (or TO_JSON/FREEZE method missing) at -e line 1.
https://PerlBanjo.com/cc1c8f206b
https://PerlBanjo.com/cc1c8f206b
SZ
LoL
SZ
perl -e 'use JSON::XS qw(encode_json); $a=1/10000; print encode_json {a=>$a}' без одного нуля уже как надо
Впрочем, это всё равно не нарушает стандарт json. Считай, упаковал ;)
Так что, либо строки, либо научная нотация
Так что, либо строки, либо научная нотация
V2
Спасибо большое
AP
$ perl -MJSON::PP=/./ -le 'print encode_json {orig => 1/100000, str => sprintf("%.10f", 1/100000) =~ s/(\.\d+?)0*$/$1/r}'
{"str":"0.00001","orig":1e-05}
$ perl -MJSON::PP=/./ -le 'print encode_json {orig => 1/100000, str => 0+(sprintf("%.10f", 1/100000) =~ s/(\.\d+?)0*$/$1/r)}'
{"str":1e-05,"orig":1e-05}ОМ
всем привет. туплю нещадно как на перле написать сравнение ключей в двух словарях?
if ((keys(%interfaces->{$port}->{'comp_cfg'})) == (keys(%interfaces->{$pair_port}->{'comp_cfg'})) ){
вот так меня скрипт не понял, хотя идеешка не ругается
if ((keys(%interfaces->{$port}->{'comp_cfg'})) == (keys(%interfaces->{$pair_port}->{'comp_cfg'})) ){
вот так меня скрипт не понял, хотя идеешка не ругается
AP
надо посчитать разницу между ними
AP
нет разницы — совпадают
AP
%interfaces->{$pair_port} — так не бывает
AP
либо
$interfaces->{$pair_port}, либо $interfaces{$pair_port}, в зависимости от того, ссылка на хеш или сам хешОМ
по идее сам хэш,
на запись к нему вот так обращаюсь
foreach my $str_ifcfg (split(/\n/, $if_content)) {
if ($str_ifcfg =~ m/^\s*((.*?)\s+vlan\s+(.*?))$/) {
my $content_cfg = $1;
my $key_cfg = $2;
%interfaces->{$if_port}->{'comp_cfg'}->{$key_cfg} = $content_cfg;
}
}
работает
на запись к нему вот так обращаюсь
foreach my $str_ifcfg (split(/\n/, $if_content)) {
if ($str_ifcfg =~ m/^\s*((.*?)\s+vlan\s+(.*?))$/) {
my $content_cfg = $1;
my $key_cfg = $2;
%interfaces->{$if_port}->{'comp_cfg'}->{$key_cfg} = $content_cfg;
}
}
работает
VV
%interfaces->{$if_po....
^— так не бывает
^— так не бывает