форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Разговоры, обсуждение новостей (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Раздел полезных советов: Как на Perl правильно выделить все ..."

Сообщение от auto_tips (??) on 15-Июн-06, 16:23

use HTML::TokeParser; my $p = HTML::TokeParser->new("index.html"); if ($p->get_tag("title")){    my $title = $p->get_trimmed_text; # Содержимое <title> } while (my $token = $p->get_tag("a")) {  # перибираем все <a href>    my $url = $token->[1]{href} || "";    my $text = $p->get_trimmed_text("/a"); # Текст между <a ...> и </a> } URL: Обсуждается: http://www.opennet.dev/tips/info/456.shtml

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Сообщения по теме

[Сортировка по времени, UBB]

1. "Как на Perl правильно выделить все A HREF ссылки из HTML фай..."

Сообщение от Igor (??) on 15-Июн-06, 16:23

Предложенный вариант у меня не сработал, зато сработал вот этот: use HTML::TokeParser; $p = HTML::TokeParser->new("temp.htm");   while ($token = $p->get_tag("a")) {       $url = $token->[1]{href} || "-";       $text = $p->get_trimmed_text("/a");       print "$url\t$text\n";   }

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]