Исходное сообщение
"Как на Perl правильно выделить все A HREF ссылки из HTML файла." Отправлено Igor, 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";   }

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Предложенный вариант у меня не сработал, зато сработал вот этот: > 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"; > }
	Введите код, изображенный на картинке: