VPF::Захат таблиц в HTML - Форум программистов

nitr

Дата 12.4.2007, 15:24 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 2
Всего: 84

amg, спасибо! Может и скажут smile

Можно ещё и DOM-XML использовать, так как условия, вроде, все соблюдаются: есть открыв. тег и закрывающий... Но эту идею реализовывать не стану :( , потому как будет похоже на уже готовые модули и + время :(

Добавлено через 7 минут и 9 секунд
TTT, ну код можно как угодно оптимизировать, я надеюсь идею полностью передал.
К примеру для опмтимизации использования памяти, как получается $body, если из файла, то считываем while <>, и записьму во временный (т.к. с переводом "нашего token" на новую строчку), заменить foreach -> while <> . Я думаю такое актуально для "больших" данных...
Могу ошибаться...

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

I love ArchLinux

TTT

Дата 13.4.2007, 10:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Присоединяюсь к amg, действительно красиво. Идея мне понятна, только про "автоматы" к сожалению не слышал раньше.

arspok

Дата 20.4.2007, 14:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет!

Последнее время я мучался над вопросом, как можно одним регулярным выражением описать строку, ограниченную с двух сторон открывающим и закрывающим тегами, и потенциально имеющую внутри такие же строки в тегах. Как таблица с подтаблицами.
Помогла эта ветка и Кэмелбук. Просто заменил в классическом примере "нескобки без возврата" на "символ, до которого не нашлось бы ни открывающего, ни закрывающего тега".

Код


#!/usr/bin/perl -w

use strict;

my $body = qq(<table><tr><td><table>
    <tr>
        <td><img src="/images/temp.gif" width="15" height="1"></td>
        <td>
            <h1>Catch this table pls</h1>
            <table>
                <tr>
                    <td><a href="/">SS</a></td>
                    <td>
                        <table>
                            <tr><td><img src="/images/temp.gif" width="1" height="5"></td></tr>
                        </table>
                    </td>
                </tr>
            </table>
        </td>
    </tr>
</table></table>);

my $re;
$re = qr{
    <table>
    (
        (?!<[\/]?table>?).
        |
        (??{ $re })
    )*
    <\/table>
}sx;

print "$1\n" if $body =~ /<\/h1>\s*($re)/;

Спасибо за наводку!

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