Телеграмм чат группы modernperl страница 9305

Size: a a a

Modern::Perl

464 membersпожаловаться на группу

2021 October 10

Vadim Goncharov in Modern::Perl

svref_2object еще объект создаст, разве нет?

источник

00:15пожаловаться #1

Sergey Zhmylove in Modern::Perl

Ну я просто показал, что оно там лежит и можно его оттуда достать. Так-то, svref_2obj это большой интерфейс, можно заюзать любой другой.
В конце концов, на xs это две строки, а если нет желания погружаться в xs, то можно просто взять (((struct xpv *)sv)->sv_any)->xpv_len_u.xpvlenu_len, а если нет типов, то sv_any * лежит в самом начале, а len вероятнее всего, по оффсету 24, эти структуры не менялись с 2012

источник

00:16пожаловаться #2

Someone Unknown 🇭🇷... in Modern::Perl

Если прям упороться, то проще написать свой xs-модуль, который просто достаёт длину из SvPV, оптимальнее этого уже ничего невозможно придумать, мне кажется

источник

00:36пожаловаться #3

Vadim Goncharov in Modern::Perl

зачем, если bytes уже есть

источник

00:37пожаловаться #4

Someone Unknown 🇭🇷... in Modern::Perl

Но там грязновато. Флаги все эти

источник

00:37пожаловаться #5

Vladimir Varlamov in Modern::Perl

Что там грязно? Могли сделать что-нибудь вроде length($s, "bytes") или создать свою функцию, но решили просто обозначать контекст работы. Это правильное решение исходя из истории вопроса.

источник

00:53пожаловаться #6

allter in Modern::Perl

Интересно, зачем понадобилось считать число байт? Обычно сначала кодируют в эти байты, затем считают. Как-бы, термин UTF-X означает, что фактический формат юникода - это деталь реализации, поэтому подсчет байтов без явного кодирования - в любом случае хак.

источник

00:56пожаловаться #7

Vladimir Varlamov in Modern::Perl

Гхм. Ну например если мы работаем не со строками, а бинарными данными. Эти байты условност. И архитектура наших вычислительных устройств, конечно. Этим можно пренебречь, но тогда это будет не эффективно. Выравнивай данные под процессорные функции и получай скорость.

источник

01:01пожаловаться #8

Vladimir Varlamov in Modern::Perl

Перл заходит к вопросу со стороны символов. Не забываем зачем и кем был придуман.

источник

01:02пожаловаться #9

Vladimir Varlamov in Modern::Perl

И когда самое важное. Во времена однобайтных кодировок.

источник

01:03пожаловаться #10

Vadim Goncharov in Modern::Perl

все были придуманы в их времена, но не все нормально пережили внедрение уникода, в отличие от перла

источник

01:03пожаловаться #11

Vladimir Varlamov in Modern::Perl

Это у автора вопроса нужно спросить зачем ему число байт в строках. Я уверен, что пациент неправильно подходит к своей задаче в общем, а нам транслирует какие-то частности уже.

источник

01:05пожаловаться #12

Vyacheslav Olkhovche... in Modern::Perl

да может ему надо в udp пакеты паковать, каждый не более 4кб

источник

01:06пожаловаться #13

Vladimir Varlamov in Modern::Perl

@knutov расскажите, зачем вам считать байты?

источник

01:07пожаловаться #14

Sergey Zhmylove in Modern::Perl

Тут же написано: https://t.me/modernperl/197646

Nick Knutov Dobrohost.ru in Modern::Perl

А как лучше получать длину юникодной строки в байтах?

Контекст - нечто генерируют строку добавляя к ней куски текста, надо прекратить, как только длина в байтах результата превысит заданный порог.

Гуглится только вариант постоянного енкоде/декоде или апгрейд/даунгрейд, что затратно по ресурсам на такое количество итераций.

источник

02:09пожаловаться #15

Vladimir Varlamov in Modern::Perl

Этот вопрос нам — интерпретация решения какой-то задачи. Какой? Больше масштаб нужен.
Скорее всего логи пишут и отгружают по файлам. Тогда если валидируют вывод (в UTF-8 vs utf8), то вопрос про эффективность быстрее bytes::length() как бы не стоит. И вообще может быть эффективнее спросить у операционки размер файла.

источник

02:48пожаловаться #16

Nick Knutov Dobrohos... in Modern::Perl

Не надо додумывать того, чего нет )

Задача звучит именно так, как было описано.

Сконвертировать решение с записью в файл - тоже вариант решения, кстати, но количество сисколлов от stat, учитывая вложенность пути - ну такое. Bytes будет заведомо эффективнее.

источник

08:27пожаловаться #17

Sergey Zhmylove in Modern::Perl

Число сисколлов от вложенности пути не зависит :)

источник

09:13пожаловаться #18

Nick Knutov Dobrohos... in Modern::Perl

Могу путать, но помню где-то большой пост о том как работает stat и что он и как перебирает по полному пути

источник

09:15пожаловаться #19

Sergey Zhmylove in Modern::Perl

vfs перебирает по полному пути, но это всё делается внутри одного сисколла. И на всех современных ос у нее есть кеш :)

источник

09:16пожаловаться #20