| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: Общие вопросы > Удаление строк по маске |
| Автор: ex3me0 18.1.2010, 15:47 |
| Не силен в регулярных выражениях, посему задаю следующий вопрос... Имеется текстовой файл, в него забит список телефонных номеров а-ля: 79021234567, где 7902 - код страны и оператора, а 1234567 - номер телефона Необходимо удалить все строки, где номер телефона содержит три подряд идущие цифры (79024562223) и строки, где повторяются 2 или более двузначных числа (79023434098)  Как только не извращался - нифига не выходит... Можно примерчик?  |
| Автор: arto 18.1.2010, 15:52 |
| m#(\d)\1\1# m#(\d\d)\1# Добавлено через 1 минуту и 10 секунд m#^\d{4}.*(\d)\1\1# m#^\d{4}.*(\d\d)\1# |