VV
Семёрку как бренд тихо спустили под ковёр. Кому сильно нужно может пройти пару кругов ада через RFC (https://github.com/Perl/RFCs) Но только новые фичи, которые ничего не ломают в обратной совместимости.
Size: a a a
2021 November 15
A
Ребята запилили себе песочницу и резвятся в ней
VV
Ещё 20 лет назад
VV
Я извиняюсь. 33
2021 November 17
M
напоминалка, что завтра пройдёт бесплатная "перл мини конференция" в зуме, длится всего 3 часа
https://dev.to/thibaultduponchelle/the-ephemeral-miniconf-connection-infos-1dmb
https://dev.to/thibaultduponchelle/the-ephemeral-miniconf-connection-infos-1dmb
jk
котаны, как из этого "Первый FHD" получить это => "\u041f\u0435\u0440\u0432\u044b\u0439 FHD"
jk
perl5
SZ
В скаляре?
jk
yes
SZ
Регулярка устроит?
jk
эмм. да. устроит.
jk
хотелось бы более адекватное решение. но устроит.
VV
$asciicode1=join("", map { sprintf("\\u{%04X}", $_) } unpack("W*", 'Первый FHD'));
SZ
@PerlBanjoBot
UPD:
$ echo Первый FHD |perl -CSD -lpe 's/(.)/ord($1)>127?sprintf+q(\u%04x),ord($1):$1/ge'
UPD:
s/([^[:ascii:]])/sprintf"\\u%04x",ord$1/geP
\u041f\u0435\u0440\u0432\u044b\u0439 FHD
https://PerlBanjo.com/842601551a
https://PerlBanjo.com/842601551a
SZ
Он у тебя FHD поменял :)
VV
Ну да, ещё проверка на 255, а я думал зачем она у меня в коде из которого я этот кусок выдрал
SZ
127
SZ
Больше не имеет смысла :)
jk
спасибо. мне нужно время для проверки ваших вариантов.