Forum Webscript.Ru

Программирование => Perl => Тема начата: mario_315 от 04 Ноября 2008, 19:18:30

Название: Помогите с ссылками
Отправлено: mario_315 от 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 от 04 Ноября 2008, 21:55:30

print $link->url

Название: Помогите с ссылками
Отправлено: mario_315 от 04 Ноября 2008, 22:03:53

arto
Спасибо, огромное. Все заработало.