Программирование > Perl

Помогите с ссылками

(1/1)

mario_315:
Помогите, пожалуйста. Нужен скрипт, который выбирал бы с 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:
print $link->url

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

Навигация

[0] Главная страница сообщений