6.23. Копилка регулярных выражений

Следующие регулярные выражения показались нам особенно полезными или интересными.

Римские цифры

m/"m4dc{0,3}c[dm])(1?x{0,3}x[1c])(V5i{0,3}i[vx])S/i

Перестановка двух первых слов

s/(\S+))\s+)(\S+)/$3$2$1/

Ключевое слово = значение

ii/(\w+)\s.=\s*(. *)\s*$/ # Ключевое слово в S1, значение - в $2

Строка содержит не менее 80 символов

т/ {80,}/

ММ/ДД/ГГ ЧЧ:ММ:СС

ml (\d+)/(\d+)/\d+) (\d+):(\d+):(\d+)

Пример 6.14 (продолжение)

##############

&{$matcher}(); # Поиск совпадений

##############

next LINE unless $Matches;

Stotal += SMatches;

if ($opt->{p} II $opt->{P}) { s/\n{2,}$/\п/ If Sopt->{p}; chomp if Sopt->{P};

print("$name\n"), next FILE if $opt->{l};

$opt->{s} II print SMult && Sname:", $opt->in} ? "$. : : ", S ,

($opt->{p} II $opt->{P}) && (- X 20) . "\n"; next FILE if Sopt->{1}; # Единица

continue {

print SMult && "Sname:", Stotal, "\n" if Sopt->{c};

$Grand Total += Stotal;

6.23. Копилка регулярных выражений 237

Смена каталога

s(/usr/bin)(/usr/local/bin)g

Расширение служебных последовательностей %7Е(шестн.)

s/%([0-9A-Fa-f][0-9A-Fa-f])/chr hex 41/де

Удаление комментариев С (не идеальное)

/\* # Начальный ограничитель . •? # Минимальное количество символов \*/ # Конечный ограничитель } []gsx;

Удаление начальных и конечных пропусков

s/"\s+ ;

s/\s+$ ;

Преобразование символа \ и следующего за ним п в символ перевода строки

s/\\n/\n/g;

Удаление пакетных префиксов из полностью определенных символов 1Р-адрес

m/-[01]?\d\d2[0-4]\d25[0-5])\.([01]\d\d2[0-4]\d25[0-5])\, ([01]Ad\d2[0-4]\d25[0-5])\.([01]Ad\cl2[0-4]\d25[0-5])$/;

Удаление пути из полного имени файла

s(".V)()

Определение ширины строки с помощью TERMCAP

$cols = ( ($ENV{TERMCAP} - ) =- m/:co#(\d+):/ ) ? $1 ; 80;

Удаление компонентов каталогов из имени программы и аргументов

($name = joinC ", map { s,\S+/.$ } ($0 @ARGV));

Проверка операционной системы

die "This isnt Linux" unless $"0 =~m/linux/i;

Объединение строк в многострочных последовательностях

s/\n\s+/ /д,

Извлечение всех чисел из строки

(ginums = m/(\d+\-?\d*l\.\d+)/g;

Поиск всех слов, записанных символами верхнего регистра

gcapwords = m/(\b["\Wa-zO-9 ]+\b)/g;

Поиск всех слов, записанных символами нижнего регистра

gcapwords = m/(\b["\WA-Z0-9 ]+\b)/g;

Поиск всех слов, начинающихся с буквы верхнего регистра

gicwords = m/(\b[\Wa-z0-9 ][-\WA-Z0-9 ]Ab)/;

238 Глава 6 • Поиск по шаблону Поиск ссылок в HTML-документах

©links = m/<A[">]+9HREF\s.=\s.["•]([" • >]+)[ ]>/sig;

Поиск среднего инициала в $

Sinitial = m/"\S+\s+(\s)\S*\s+\S/ $1 : "";

Замена кавычек апострофами

s/-([-].)V$r 7д

Выборка предложений (разделитель - два пробела)

{ local $/ = while (о) { s/\n/ /д, S/ {3,}/ /д,

push ©sentences, m/(\S. i. ])(= \Z)/g,

ГГГГ-ММ-ДД

m/(\d{4})-(\d\d)-(\d\d)/ # ГГГГ в $1, MM в $2 и ДД в $3

Выборка строк независимо от терминатора (завершающего символа)

push(©lines, $1)

while ($input =- s/(["\012\015]*)(\012\015\0l5\012) ).