Автор Тема: Помогите с ссылками  (Прочитано 3384 раз)

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

Оффлайн mario_315

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 2
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Помогите с ссылками
« : 04 Ноября 2008, 19:18:30 »
Помогите, пожалуйста. Нужен скрипт, который выбирал бы с url адреса ссылки и отображал бы их в читаемом виде для дальнейшей обработки. То, что представлено ниже выдает что-то типа: WWW::Mechanize::Link=ARRAY(0x1d07008) WWW::Mechanize::Link=ARR и т.д.

use strict;
use WWW::Mechanize 0.48;
my $mech = WWW:Mechanize->new();

$mech->get("http://www.somehost.ru/inde.html");

my @links = $mech->find_all_links( url_regex => qr/\\.html$/);

for my $link (@links) {
    print $link . "\\n";
}

Оффлайн arto

  • Ветеран
  • *****
  • Сообщений: 699
  • +0/-0
  • 2
    • Просмотр профиля
Помогите с ссылками
« Ответ #1 : 04 Ноября 2008, 21:55:30 »
print $link->url

Оффлайн mario_315

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 2
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Помогите с ссылками
« Ответ #2 : 04 Ноября 2008, 22:03:53 »
arto
Спасибо, огромное. Все заработало.

 

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