VPF::Выбрать последнюю ячейку первой строки таблицы.

sir_nuf_nuf

Дата 6.9.2009, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 1
Всего: 31

Эх.. дайте - ка и я развлеку форумчан нубским вопросом.

Ситуевина: есть html с таблицами в нем. Таблицы не могут быть вложенными, т.е. внутри одной другой быть не может.
Задача с помощью регулярки повесить class="bubu_last" на правую верхнуюю ячейку в таблице. Т.е. первая строка - последний столбец.

Интуитивно понимаю, что мощнее регулярок в перле, только удар Чака Норрис ногой с разворота, но.. что-то в пятницу не осилил эту задачку.

--------------------

KSURi

Дата 7.9.2009, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: нет
Всего: 27

Не самое оптимально решение, но, вроде, работает)

Код


#!/usr/bin/env perl

use Modern::Perl;

my $html = do { local $/ = <DATA> };
$html =~ s{</td>\n*<td>(.+?</td>\n*</tr>)}{</td>\n<td class="bubu_last">$1}sg;
say $html;

__DATA__
<html>
<head>
<title>hello</title>
</head>
<body>
<table>
<tr>
<td>row 1, cell 1</td>
<td>row 1, cell 2</td>
</tr>
<tr>
<td>row 2, cell 1</td>
<td>row 2, cell 2</td>
</tr>
</table>
</body>
</html>

--------------------

Died at Life.pl line 21

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Регулярные выражения \| Следующая тема »