AP
в перле это всё не так просто. даже просто проинтерполировать число в строке может сделать его строкой
Size: a a a
2020 January 04
VO
это я уже понял, но мы это отбросим как небывальщину.
AP
$ perl -MB -E '$a=1; $b="1"; $c=2.0; say B::class(B::svref_2object(\$a)); say B::class(B::svref_2object(\$b)); say B::class(B::svref_2object(\$c)); '
IV
PV
NV
AP
если коротко, то PV — строка
AP
для большей полноты картины:
$ perl -MB -E '$a=1; $b="1"; $c=2.0; say B::class(B::svref_2object(\$a)); say B::class(B::svref_2object(\$b)); say B::class(B::svref_2object(\$c)); $a="$a"; say B::class(B::svref_2object(\$a)); '
IV
PV
NV
PVIV
AP
варианты значений примерно следующие:
IV, NV, PV, PVIV, PVNV, PVMG, REGEXP, PVGV, PVLV, PVAV, PVHV, PVCV, PVFM, PVIOAP
когда есть PV — значит было сгенерировано строковео значение
AP
NV, IV, UV — числа
AP
@PerlBanjoBot say "123\n" =~
/^\d+$/ ? 'number' : 'not number';\d матчит туеву хучу символов в юникоде. [0-9] лучше.AP
Чтобы в JSON попадало число, достаточно сделать
0+$str.2020 January 05
VG
это я уже понял, но мы это отбросим как небывальщину.
нередкий случай вообще-то
VO
в моем случае будем считать что так быть не может по построению
AP
\d матчит туеву хучу символов в юникоде. [0-9] лучше.я пробовал ставить
/a — не помогает, не в этом делоВ
\d - не правильно, если число нужно
В
/^[1-9][0-9]*$/
В
Ну или /^[+-]?[1-9][0-9]*$/ в зависимости от контекста
В
А, ну и точку учесть надо
В
Если надо
В
Ещё могут быть варианты типа 0b.. 0x...
IB
А еще бывают отрицательные числа