Perl регулярные выражения - есть ответ

username1366, 297 просмотров

Есть табличка вида:
<tbody>
<tr align="center" class="std" bgcolor="#EEFFEE">(Нужный мне текст)</tr>
<tr align="center" class="std" bgcolor="#EEFFEE">(Нужный мне текст)</tr>
<tr align="center" class="std" bgcolor="#EEFFEE">(Нужный мне текст)</tr>
</tbody>
Не получается выбрать нужный мне текст, пишу так:
while($str =~ s/<tr align="center" class="std" bgcolor="#EEFFEE">(.+)<\/tr>//){
print $1;
}

Примечание:
Что-то не работает. Вот код, который нужно разобрать http://dl.dropbox.com/u/10184551/code.html

Примечание:
Зачем вам кодировка? Смотрите исходный код файла.

Примечание:
Я удалил все лишнее, а все данные заменил на "AAAAAAAAA". Там 3 строчки в этой таблице.

Ответы:

Старший бригады телепатов

Основная строчка распарсилась так:
while (<STDIN>) {
$str=$_;
chomp ($str);
$str =~ s/\<tr align=\"center\" class=\"std\" bgcolor=\"#EEFFEE\"\>(.+)\<\/tr\>/$1/eg;
print "$str\n";
}

Вася Пупкин

> Дополнение #1
Прошёл по ссылки и только одни иероглифы. Кода не увидел, а с русским там жуткие проблемы. Установи нормально кодировку.

Вася Пупкин

> s/<tr align="center" class="std" bgcolor="#EEFFEE">(.+)<\/tr>//)
А ты не думал, что ты заменяешь весь найденный текст на null? Поставь перед последним слешем $1 и всё будет норм, как и показал тебе бригадир.
Скрипт бригадира отработал отлично. Проверь сперва в консоли, а потом применяй для cgi.

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.