VO
но я уже нашел ответ что это дофига как сложно
use Data::Dumper;-- вот такое мне надо.
print Dumper('1', 1);
# output:
$VAR1 = '1';
$VAR2 = 1;
Size: a a a
2020 January 04
VO
VO
это решулярками не решается, как очевидно
AP
ты имеешь в виду узнать как оно будет при енкодинге в джейсон?
IB
Ну if /\d+/, если тупо в лоб
Что-то какая-то фигня этим матчится =)
IB
@PerlBanjoBot say '၂၃' =~ /\d+/ ? 'number' : 'not number';
P
@PerlBanjoBot say '၂၃' =~ /\d+/ ? 'number' : 'not number';
AP
если матчить, то
https://metacpan.org/pod/Regexp::CommonIB
проверяешь регуляркой
/^\d+$/Почему-то строка со \n на конце матчится
IB
@PerlBanjoBot say "123\n" =~
/^\d+$/ ? 'number' : 'not number';AP
@PerlBanjoBot say '၂၃' =~ /\d+/ ? 'number' : 'not number';
как боту сказать юз модуля? или писать прямо руками юз?
P
@PerlBanjoBot say "123\n" =~
/^\d+$/ ? 'number' : 'not number';IB
как боту сказать юз модуля? или писать прямо руками юз?
можно либо use, либо писать ему однострочки (тогда нужно начать с доллара, типа `$ perl -E 'say 123'`)
IB
Но там есть только модули, которые с перлом поставляются
AP
большая часть регексп::коммон с перлом идёт
AP
Почему-то строка со \n на конце матчится
ну потому что надо флаг
s для такого случая, но вопрос остаётся...IB
А почему бы не использовать
\z вместо $ ?VO
ты имеешь в виду узнать как оно будет при енкодинге в джейсон?
джейсон меня тут не волнует
AP
а что волнует? в чём разница между
'1' и 1?VO
оверхед, чистота и красота.
разница в том, что первые не нужно складывать и они являются разделителями, а по вторым надо посчитать среднее
разница в том, что первые не нужно складывать и они являются разделителями, а по вторым надо посчитать среднее