Сообщения

1

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

« : 04 Ноября 2008, 22:03:53 »

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

2

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

« : 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";
}