https://www.opennet.me/openforum/vsluhforumID9/10297.html Есть строка текста в которой в произвольном месте может содержаться "мусорный" текст который нужно вычистить. У "мусора" следующие параметры он оканчивается на \x00\x00 (в hex представлении), а в начале \xE3\x33 но при этом он не всегда находится в самом начале иногда перед ним бывает 1 или 2 символа. При этом длинна "мусорной" строки всегда 70 байт. Встречается "мусор" произвольное число раз.<br><br>Возможно ли на Perl составить такое регулярное выражение или два три выражения которое удаляло бы ненужное?<br><br><br> https://www.opennet.me/openforum/vsluhforumID9/10297.html#18 Sat, 28 Mar 2020 16:45:14 GMT &gt; Ага. Разжуй две ситуации, в которых твой regex не сработал: <br>&gt; 1. Перед \xE3\x33 есть ОДИН символ <br><br>И?<br>{0, 2}, если что, включает в себя 1.<br><br>&gt; 2. Перед \xE3\x33 есть ДВА символа. Строка осталась 70 <br>&gt; байтов. А ты ожидаешь 72.<br><br>Регексп работает и ожидает 70 символов. (?=.....) &#8212; это просмотр вперёд, если что. Далее отсчет идет с начала строки.<br> https://www.opennet.me/openforum/vsluhforumID9/10297.html#17 Mon, 10 Feb 2020 18:06:54 GMT &gt;&gt; (в hex представлении), а в начале \xE3\x33 но при этом он <br>&gt;&gt; не всегда находится в самом начале иногда перед ним бывает 1 <br>&gt;&gt; или 2 символа. При этом длинна "мусорной" строки всегда 70 байт.<br>&gt; Этому определению строки строго соответствует регексп [code](?=.{0,2}\xE3\x33).{68}\x00{2}[/code] <br>&gt; Дальше понятно, или нужно разжевывать?<br><br>Ага. Разжуй две ситуации, в которых твой regex не сработал:<br> 1. Перед \xE3\x33 есть ОДИН символ<br> 2. Перед \xE3\x33 есть ДВА символа. Строка осталась 70 байтов. А ты ожидаешь 72.<br> https://www.opennet.me/openforum/vsluhforumID9/10297.html#16 Sat, 08 Feb 2020 11:05:45 GMT &gt; Есть строка текста в которой в произвольном месте может содержаться "мусорный" текст <br>&gt; он оканчивается на \x00\x00 <br>&gt; (в hex представлении), а в начале \xE3\x33 но при этом он <br>&gt; не всегда находится в самом начале иногда перед ним бывает 1 <br>&gt; или 2 символа. При этом длинна "мусорной" строки всегда 70 байт. <br><br>Этому определению строки строго соответствует регексп [code](?=.{0,2}\xE3\x33).{68}\x00{2}[/code] Дальше понятно, или нужно разжевывать?<br> https://www.opennet.me/openforum/vsluhforumID9/10297.html#15 Fri, 07 Feb 2020 11:37:00 GMT Примерно же понятно. Есть какой-то бинарный протокол, по которому чанки данных идут с каким-то заголовком. Так-то конечно надо изучать протокол и делать unpack по формату. <br>Но регулярки fine too, это же перл. <br> https://www.opennet.me/openforum/vsluhforumID9/10297.html#14 Fri, 07 Feb 2020 11:02:20 GMT &gt; Думал сначала написать ?=[^\x00], а потом исправил и знак равно забыл убрать. <br>&gt; Регулярку конечно не тестил.<br>&gt; Посылать неправильно. Вопрос корректный. Возможно? Возможно. Он же не попросил сразу годного <br>&gt; в продакшен решения.<br><br>Дак афтур и толком задачу не сформулировал - в оригинальной формулировке ее вообще решить невозможно.<br><br> https://www.opennet.me/openforum/vsluhforumID9/10297.html#13 Fri, 07 Feb 2020 11:01:13 GMT &gt; Конструкция смотрит 2 нулевых байта, после которых нет нулевых байтов, после чего <br>&gt; удаляет их вместе с 68 байтами стоящими перед ними.<br>&gt; Если \0\0 в длину удаляемой строки не входят, нужно вместо {68} написать <br>&gt; {70}.<br><br>Значит я правильно понял.<br><br> https://www.opennet.me/openforum/vsluhforumID9/10297.html#12 Thu, 06 Feb 2020 21:50:11 GMT &gt;&gt; $clean = do{ use bytes ; $str =~ s/.{68}\x00{2}(?!=\x00)//g ; $str } <br>&gt; (?!=\x00) как я понимаю эта конструкция будет искать \x00{2} после которых нет <br>&gt; \x00, а в строке может быть и несколько кусков такого мусора. <br>&gt; Так что не сработает. Я поступил в "лоб" развернул строку и <br>&gt; искал уже с конца \x00{2} и потом резал 70 байт.<br><br>Да, ?!= - опечатка, должно быть ?!<br><br>Конструкция смотрит 2 нулевых байта, после которых нет нулевых байтов, после чего удаляет их вместе с 68 байтами стоящими перед ними.<br>Если \0\0 в длину удаляемой строки не входят, нужно вместо {68} написать {70}.<br> https://www.opennet.me/openforum/vsluhforumID9/10297.html#11 Thu, 06 Feb 2020 21:47:38 GMT &gt;&gt; Это не сложное выражение.<br>&gt; (?!=\x00) - что это значит?<br>&gt; Есть: <br>&gt; (?=ххх) заглядывание вперед <br>&gt; (?!xxx) заглядывание вперед с отрицанием <br>&gt; а что у вас нифига не понятно, думаю что скорее второе.<br>&gt; Вообще в силу формулировки афтара, его следовало бы послать ... формулировать, а <br>&gt; не гадать не пойми на чем.<br><br>Думал сначала написать ?=[^\x00], а потом исправил и знак равно забыл убрать. Регулярку конечно не тестил.<br>Посылать неправильно. Вопрос корректный. Возможно? Возможно. Он же не попросил сразу годного в продакшен решения. <br> https://www.opennet.me/openforum/vsluhforumID9/10297.html#10 Thu, 06 Feb 2020 09:27:48 GMT &gt; Согласен что нужно четко описывать, но проблема в том что эти 1-2 <br>&gt; символа никак не отличить от нормальной строки поэтому я пошел другим <br>&gt; путем. Сначала перевернул строку, а потом искал \x00\x00 и от них <br>&gt; уже искал 70 байт и вырезал, потом строку обратно переворачивал.<br>&gt; $row = reverse($row); <br>&gt; $row=~s/\x00\x00.{68}//g; <br>&gt; $row = reverse($row); <br>&gt; Возможно перевороты туда сюда и не оптимальны но это работает.<br><br>Это сферическое "черезжопу" в вакууме. <br>Внизу есть решение нарезки по 70.<br>