$1, $2 ... $9

[vika]

Здравствуйте. Вот никак понять не могу, как правильно обозначить подшаблон в шаблоне. То бишь, вот этот код не робит совсем, хотя отдельно куски могу вытащить

Код:

#!/usr/bin/perl -w

$| = 1;

my $test = <<"EOF";
<table cellspacing="0" cellpadding="3" border="0" align="center" width="100%">
EOF

$test =~ m/cellspacing="(\d)\D+width="(\d+[^\"]+)/;

print $1;

print $2;

[Dimka]

vika, а я вообще этого кода не пойму. Чего ищется?

Парсинг атрибутов будет примерно так:

Код:

/cellspacing="(\d*)"\s+.*width="(\d+.*)?"/

[RXL]

Согласен: задачу нужно описывать, а не вываливать свои потуги.

Дим, кстати, твое выражение с изъяном и "?" не понятно к чему. Сдается, ты скобку рано поставил.

[Dimka]

RXL, ко второй группе. Другое дело, что по принципу жадного алгоритма .* во второй группе отхватит не содержимое кавычек после width, а кусок от начальной кавычки width до самой последней кавычки в строке. И вот это проблема. Я на вскидку не помню, какие суффиксы после числа могут быть у width, кроме %.

[RXL]

Пробелы могут быть. Шаблон следующий: "\s*(\d+)\s*%?\s*". При этом, если это не XHTML, то и кавычки могут быть опцией.

[Dimka]

RXL, не согласен. Ты из группы исключил суффикс, а это существенная информация - единица измерения.

Вообще атрибуты надо поштучно обрабатывать. Ведь их порядок тоже может быть произвольным.

[RXL]

В HTML/XHTML нет суффиксов! Ты путаешь с CSS.

[Dimka]

RXL, как минимум там может быть число, или число с процентом. Вот это-то я точно не путаю.

[RXL]

Совершенно верно. И шаблон в ответе 4 это учитывает.

[Dimka]

RXL, он это не учитывает постольку, поскольку тема про группы, про $1...$9. Ты же не поместил процент внутрь группы (скобок), т.е. при чтении группы ты не узнаешь, был ли там процент или не было, хотя в целом выражение будет распознано.

[RXL]

В таком случае, предлагаю шаблон такого вида: "\s*(\d+)\s*(%)?\s*"
Думаю, логичнее использовать две группы, чем проверять, есть ли в конце знак процента и нет ли пробелов.

[Dimka]

RXL, ну это уже зависит от задачи. Однако автор темы куда-то пропала.

[vika]

В таком случае, предлагаю шаблон такого вида: "\s*(\d+)\s*(%)?\s*"

Не работает шаблон

Добавлено через 33 секунды:

RXL, ну это уже зависит от задачи. Однако автор темы куда-то пропала.

Так как все-таки вытаскивать из текста нужные куски???

[RXL]

Код: (Perl)

$test =~ m/\scellspacing\s*=\s*"\s*(\d+)\s*"[^>]*\swidth\s*=\s*"\s*(\d+)\s*(%)?\s*"/;

print "$1\n\$2$3\n";

[vika]

Спасибо за пример. Но, хотелось бы услышать общие принципы. Что не читала, все или не работает, или очень заумно для понимания. Из того, что поняла

Код:

=~m/(первое совпадение)\1 (второе совпадение)\2 ... (n-ное совпадение)\n/

Каждая скобка - подшаблон, \1 - локальная переменная, нумерация слева направо. Но, чет не робит ничего...

[RXL]

vika, рекомендую почитать книгу "Программирование на Perl" Ларри Уолл и другие. (русский перевод, издательство Символ). У нас есть скан 3-го издания: https://club.shelek.ru/viewfiles.php?id=19 У меня оно есть в бумажном виде - книга стоящая. Глава 5 "Поиск по шаблону", около 70 страниц. Там самое полное описание возможностей Perl по части регулярных выражений. Та часть, что интересует тебя, именуется "захват" - в книге этому посвящены три страницы. Что-то мы можем рассказать здесь, но все же за деталями обратись к книге.

Конструкция "\1" называется ссылкой - это не переменная. Использование сего не просто и требует внимательности. Если не работает, то приводи выражение и контрольную строку, на которой проверяешь. Иначе и сказать больше нечего.

[vika]

Большое спасибо.