VPF::XML::LibXSLT + HTML - Форум программистов

tishaishii

Дата 15.9.2012, 00:05 (ссылка)

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

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

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

Код


use XML::LibXSLT ;
use URI ;

my $uri = URI -> new ( 'http://www.test.ru' ) ;
my %args = (
    'recover' => 1 ,
    'suppress_errors' => 1 ,
    'huge' => 1 ,
) ;
my $xslt = XML::LibXSLT -> new ( %args ) ;
my $xml = XML::LibXML -> new ( %args ) ;
my $source = $xml -> load_html ( 'location' => $uri ) ;
my $style_doc = $xml -> load_xml ( 'string' => << '.' ) ;
<?xml version="1.0" encoding="utf-8"?>

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns="urn:indexes">
    <xsl:template match="/">
      <root>
        <xsl:apply-templates select="//td[@class='centcol']/a"/>
      </root>
    </xsl:template>

    <xsl:template match="//td[@class='centcol']/a">
        <item name="{.}">
            <xsl:for-each select="document(./@href)//td[@class='centcol']//table[position()=2]//tr">
                <address>
                    <xsl:value-of select="td//span"/>
                </address>
            </xsl:for-each>
            <xsl:apply-templates/>
        </item>
    </xsl:template>

    <xsl:template match="*"/>
</xsl:stylesheet>
.

my $stylesheet = $xslt -> parse_stylesheet ( $style_doc ) ;
my $results = $stylesheet -> transform ( $source ) ;
print $stylesheet -> output_as_bytes ( $results ) ;

document(...) получает документ HTML и вываливает кучу ошибок. В итоге с документом не работает. Опцию recover не нашёл как применить.
Как сделать, чтобы работало?

arto

Дата 16.9.2012, 13:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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

500 Can't connect to www.test.ru:80 (Bad hostname)
Content-Type: text/plain
Client-Date: Sun, 16 Sep 2012 10:00:55 GMT
Client-Warning: Internal response

tishaishii

Дата 18.9.2012, 20:50 (ссылка)

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

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

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

www.test.ru - это для примера.
Я имею в виду, если в XPath указан document(@href), где @href - это ссылка на HTML-документ, то при указанных мной настройках возникает ошибка разбора XML ( HTML - "грязный" ). Для исправления в XML::LibXML существует опция "recover". А что делать внутри XSLT-преобразования в аналогичном случае?

krypt3r

Дата 20.9.2012, 10:20 (ссылка)

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

Загрузка ...

Опытный

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

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

arto вам намекнул, что для получения ответа надо бы глянуть на исходный документ, получаемый с site.ru. Это первое. И второе: применять XSLT к HTML — это нонсенс, HTML может оказаться невалидным

tishaishii

Дата 23.9.2012, 07:46 (ссылка)

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

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

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

Ага. Нонсенс, намекаете, считаете друг друга малоразумными, наверное. Не дай бог новичок попадёт со своими вопросиками.
Всякая постановка задачи в связи с соответствующим контекстом может быть полностью адекватна. Если задача решается сложно, это может означать, что другого решения просто не существует.

Я решил задачу. Спасибо за ответы.

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