Исходное сообщение
"Возможно ли на regexp perl удалить определенное число байтов?" Отправлено Аноним, 06-Фев-20 00:14
> Есть строка текста в которой в произвольном месте может содержаться "мусорный" текст > который нужно вычистить. У "мусора" следующие параметры он оканчивается на \x00\x00 > (в hex представлении), а в начале \xE3\x33 но при этом он > не всегда находится в самом начале иногда перед ним бывает 1 > или 2 символа. При этом длинна "мусорной" строки всегда 70 байт. > Встречается "мусор" произвольное число раз. > Возможно ли на Perl составить такое регулярное выражение или два три выражения > которое удаляло бы ненужное? Что-то такое, если я вас верно понял. $clean = do{ use bytes ; $str =~ s/.{68}\x00{2}(?!=\x00)//g ; $str }