Автор Тема: HTML::LinkExtor вывод результатов в нечитаемом виде  (Прочитано 3911 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Kwazar

  • Философ
  • Постоялец
  • ***
  • Сообщений: 201
  • +0/-0
  • 2
    • Просмотр профиля
    • http://www.uhuhu.ru/
В переменной $site хранится Html код страницы (получаю с помощью LWP). Надо из этого кода вытащить и записать в массив все ссылки, заменив относительные пути на абсолютные.
Вот кусок скрипта.

use HTML::LinkExtor;

...

$analyseur = HTML::LinkExtor->new;
$analyseur->parse($site);
@links = $analyseur->links;
print "@links";

В результате я вижу на экране такое:
ARRAY(0x1aef198) ARRAY(0x1aef324) ARRAY(0x1aef120) ARRAY(0x1aef138) ARRAY(0x1aef15c) ARRAY(0x1aef378) ARRAY(0x1aef3b4) ARRAY(0x1ae0b24) ARRAY(0x1ae0b60) ARRAY(0x1ae0b9c) ARRAY(0x1ae0bd8) ARRAY(0x1ae0c14) ARRAY(0x1ae0c50) ARRAY(0x1ae0ee4) ARRAY(0x1adfd98) ARRAY(0x1adfe10) ARRAY(0x1aef264) ARRAY(0x1adfe4c) ARRAY(0x1adfe88) ARRAY(0x1adfec4) ARRAY(0x1adff3c) ARRAY(0x1adfdd4) ARRAY(0x1aef12c) ARRAY(0x1adffb4) ARRAY(0x1adfff0)

Как это перевести в читаемый вид?

И еще. Этот модуль позволяет менять относительные пути на абсолютный, если да - то как? Если нет - то какой и как?

Заранее благодарен за развернутый ответ или хотя бы намек...
С уважением Сергей

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
perldoc Data::Dumper
2B OR NOT 2B = FF

Оффлайн Kwazar

  • Философ
  • Постоялец
  • ***
  • Сообщений: 201
  • +0/-0
  • 2
    • Просмотр профиля
    • http://www.uhuhu.ru/
Chs
А если perldocs нету? Я все сразу на серваке тестирую...
С уважением Сергей

Оффлайн Макс

  • vir magni ingenii
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3534
  • +0/-0
  • 2
    • Просмотр профиля
Как можно программить без документации к языку ?
Или установи на сервер доки или локально установи perl с документацией.

Кстати в доке по html::linkExtor написано как сделать абсолютными линки:

$p = HTML::LinkExtor->new([$callback[, $base]])
$base - это базовый URL используемый для создания абсолютных ссылок
First learn computer science and all the theory. Next develop a programming style. Then forget all that and just hack. ( George Carrette )

Оффлайн Kwazar

  • Философ
  • Постоялец
  • ***
  • Сообщений: 201
  • +0/-0
  • 2
    • Просмотр профиля
    • http://www.uhuhu.ru/
Макс, по памяти...
К сожалению этот модуль я использую в первый раз, потому и дурацкие вопросы задаю.
С уважением Сергей

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
Цитировать
А если perldocs нету? Я все сразу на серваке тестирую...

http://www.perldoc.com/
2B OR NOT 2B = FF

Оффлайн Wyclef

  • hello_worlder
  • Старожил
  • ****
  • Сообщений: 307
  • +0/-0
  • 2
    • Просмотр профиля
    • http://thug.narod.ru
Цитировать
Как это перевести в читаемый вид?



@links = $analyseur->links;

foreach $item (@links) {
print $item->[2], "\\n";
}
It\'s nice to be important, but it\'s more important to be nice!

Оффлайн Kwazar

  • Философ
  • Постоялец
  • ***
  • Сообщений: 201
  • +0/-0
  • 2
    • Просмотр профиля
    • http://www.uhuhu.ru/
Благодарю.
С уважением Сергей

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28