Вариант для распечатки		Пред. тема | След. тема
Форум Программирование под UNIX (Perl)
Режим отображения отдельной подветви беседы		[ Отслеживать ]

Возможно ли на regexp perl удалить определенное число байтов?, zhukovia (ok), 05-Фев-20, (0) [смотреть все] Забыл добавить подобная последовательность x00 x00 может быть не один раз вну, zhukovia (ok), 13:41 , 05-Фев-20, (1) // На перле это делается как два пальца об асфальт, остается только понять что тако, Pahanivo (ok), 14:10 , 05-Фев-20, (2) +1 // Согласен что нужно четко описывать, но проблема в том что эти 1-2 символа никак , zhukovia (ok), 07:23 , 06-Фев-20, (6) // Это сферическое черезжопу в вакууме Внизу есть решение нарезки по 70 , Pahanivo (ok), 12:27 , 06-Фев-20, (10) Что-то такое, если я вас верно понял clean do use bytes str s 68 x0, Аноним (3), 00:14 , 06-Фев-20, (3) // Так оно не проверит на xE3 x33 Нужно тщательнее clean do use bytes str , ACCA (ok), 01:11 , 06-Фев-20, (4) // Если в данных не бывает 0 0, удаляемый кусок всегда 70 байт и оканчивается двум, Аноним (3), 03:31 , 06-Фев-20, (5) // x00 - что это значит Есть ххх заглядывание вперед xxx заглядывание , Pahanivo (ok), 12:20 , 06-Фев-20, (8) Думал сначала написать x00 , а потом исправил и знак равно забыл убрать Ре, Аноним (3), 00:47 , 07-Фев-20, (11) Дак афтур и толком задачу не сформулировал - в оригинальной формулировке ее вооб, Pahanivo (ok), 14:02 , 07-Фев-20, (14) Примерно же понятно Есть какой-то бинарный протокол, по которому чанки данных и, Аноним (3), 14:37 , 07-Фев-20, (15) x00 как я понимаю эта конструкция будет искать x00 2 после которых нет , zhukovia (ok), 07:29 , 06-Фев-20, (7) // видимо тут x00 , и видимо оно будет учитывать что в мусоре x00 не только в , Pahanivo (ok), 12:26 , 06-Фев-20, (9) Да, - опечатка, должно быть Конструкция смотрит 2 нулевых байта, после кот, Аноним (3), 00:50 , 07-Фев-20, (12)   // Значит я правильно понял , Pahanivo (ok), 14:01 , 07-Фев-20, (13)   Этому определению строки строго соответствует регексп code 0,2 xE3 x33 , U.N.Owen (?), 14:05 , 08-Фев-20, (16) –1 // Ага Разжуй две ситуации, в которых твой regex не сработал 1 Перед xE3 x33 , ACCA (ok), 21:06 , 10-Фев-20, (17) // И 0, 2 , если что, включает в себя 1 Регексп работает и ожидает 70 символов , U.N.Owen (?), 19:45 , 28-Мрт-20, (18) 1,3,16

Сообщения

[Сортировка по времени | RSS]

	12. "Возможно ли на regexp perl удалить определенное число байтов?"	+/–
	Сообщение от Аноним (3), 07-Фев-20, 00:50
	>> $clean = do{ use bytes ; $str =~ s/.{68}\x00{2}(?!=\x00)//g ; $str } > (?!=\x00) как я понимаю эта конструкция будет искать \x00{2} после которых нет > \x00, а в строке может быть и несколько кусков такого мусора. > Так что не сработает. Я поступил в "лоб" развернул строку и > искал уже с конца \x00{2} и потом резал 70 байт. Да, ?!= - опечатка, должно быть ?! Конструкция смотрит 2 нулевых байта, после которых нет нулевых байтов, после чего удаляет их вместе с 68 байтами стоящими перед ними. Если \0\0 в длину удаляемой строки не входят, нужно вместо {68} написать {70}.
	Ответить | Правка | К родителю #7 | Наверх | Cообщить модератору

	13. "Возможно ли на regexp perl удалить определенное число байтов?"	+/–
	Сообщение от Pahanivo (ok), 07-Фев-20, 14:01
	> Конструкция смотрит 2 нулевых байта, после которых нет нулевых байтов, после чего > удаляет их вместе с 68 байтами стоящими перед ними. > Если \0\0 в длину удаляемой строки не входят, нужно вместо {68} написать > {70}. Значит я правильно понял.
	Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема