Size: a a a

2021 January 21

ИК

Илья Курьянов... in Modern::Perl
Denis F
А, понятно, оно таки по байтам режет, а не по символам
$ perl -C -Mutf8 -E 'my $var = "котик"; say substr($var, 0, 3)'
кот

Да вроде по символам
источник

t

t0hil in Modern::Perl
Denis F
Камрады, куда копать?

Есть строка $VAR1 = '{"ыыыыыыыыыыыы":"жжжж"}';
И она после обрезки substr на куски, склейки и энкодинга в json превращается в такое {\"ыыы� ... �жжж\"}
Есть пример помимо наброска?
источник

SZ

Sergey Zhmylove in Modern::Perl
Илья Курьянов
$ perl -C -Mutf8 -E 'my $var = "котик"; say substr($var, 0, 3)'
кот

Да вроде по символам
Зачем ты -C -то влепил?
источник

ИК

Илья Курьянов... in Modern::Perl
Sergey Zhmylove
Зачем ты -C -то влепил?
Чтобы открыть STDOUT в режиме utf8 минимальным количеством символов
источник

SZ

Sergey Zhmylove in Modern::Perl
Илья Курьянов
Чтобы открыть STDOUT в режиме utf8 минимальным количеством символов
Открыл?
источник

ИК

Илья Курьянов... in Modern::Perl
Да.
источник

AE

Alexandr Evstigneev in Modern::Perl
вроде был канал для рекрутов/ищущих работу?
источник

AE

Alexandr Evstigneev in Modern::Perl
перловиков в смысле
источник

K

Kolunchik in Modern::Perl
источник

AR

Andrey Rachitskiy in Modern::Perl
Alexandr Evstigneev
вроде был канал для рекрутов/ищущих работу?
источник

AE

Alexandr Evstigneev in Modern::Perl
спс
источник

DF

Denis F in Modern::Perl
t0hil
Есть пример помимо наброска?
победил, пришлось пошаманить с utf8 и Encode в разных местах :)
источник

t

t0hil in Modern::Perl
Это проблема была в JSON верно а не в самом substr?
источник

DF

Denis F in Modern::Perl
не, проблема была в кривом использовании utf8 и Encode.
источник

SR

Stas Raskumandrin in Modern::Perl
вот самая лучшая статья по юникоду, которую встречал, и которая, к сожалению, осталась только на веб-архиве:
https://web.archive.org/web/20200215211621/http://www.nestor.minsk.by/sr/2008/09/sr80902.html
источник

ع

عاصم بن حارث... in Modern::Perl
Stas Raskumandrin
вот самая лучшая статья по юникоду, которую встречал, и которая, к сожалению, осталась только на веб-архиве:
https://web.archive.org/web/20200215211621/http://www.nestor.minsk.by/sr/2008/09/sr80902.html
+++
источник

SZ

Sergey Zhmylove in Modern::Perl
Илья Курьянов
Да.
@PerlBanjoBot $ perl -C -Mutf8 -E 'my $var = "котик"; say substr($var, 0, 3)'
источник

P

PerlBanjoBot in Modern::Perl
Sergey Zhmylove
@PerlBanjoBot $ perl -C -Mutf8 -E 'my $var = "котик"; say substr($var, 0, 3)'
Wide character in say at -e line 1.
кот
https://PerlBanjo.com/ee3b8f69f5
источник

SZ

Sergey Zhmylove in Modern::Perl
Илья Курьянов
Да.
Сирьезно?
источник

ع

عاصم بن حارث... in Modern::Perl
PerlBanjoBot
Wide character in say at -e line 1.
кот
https://PerlBanjo.com/ee3b8f69f5
└─ [2021-01-21 15:55:35] $ >>> perl -C2 -Mutf8 -E 'my $var = "котик"; say substr($var, 0, 3)'
кот   <—— работает =)
источник