Исходное сообщение
"Возможно ли на regexp perl удалить определенное число байтов?" Отправлено Pahanivo, 06-Фев-20 12:27
> Согласен что нужно четко описывать, но проблема в том что эти 1-2 > символа никак не отличить от нормальной строки поэтому я пошел другим > путем. Сначала перевернул строку, а потом искал \x00\x00 и от них > уже искал 70 байт и вырезал, потом строку обратно переворачивал. > $row = reverse($row); > $row=~s/\x00\x00.{68}//g; > $row = reverse($row); > Возможно перевороты туда сюда и не оптимальны но это работает. Это сферическое "черезжопу" в вакууме. Внизу есть решение нарезки по 70.