Компьютерный форум NoWa.cc Здесь может быть Ваша реклама
Правила Форума
редакция от 22.06.2020
Портал .::2BakSa.WS::.
Вернуться   Компьютерный форум NoWa.cc > В помощь вебмастеру > Веб - Программирование > Perl

Уважаемые пользователи nowa.cc и 2baksa.ws. У нас сложилось тяжелое финансовое положение. Мы работаем для вас вот уже более 15 лет и сейчас вынуждены просить о помощи. Окажите посильную поддержку проектам. Мы очень надеемся на вас. Реквизиты для переводов ниже.
Webmoney Webmoney WMZ: 826074280762 Webmoney WMR: 146037758184 Webmoney WMP: 209123518174 Webmoney WME: 804621616710
PayPal PayPal_Email E-mail для связи по вопросу помощи
Кошелек для вашей помощи YooMoney 410013204813773
YooMoney Спасибо за поддержку!
Ответ
 
Опции темы Поиск в этой теме Опции просмотра Language
Старый 04.11.2008, 19:35   #1
Неактивный пользователь
 
Регистрация: 04.11.2008
Сообщений: 1
Репутация: 0
По умолчанию Вопрос по ссылкам

Помогите, пожалуйста. Нужен скрипт, который выбирал бы с url адреса ссылки и отображал бы их в читаемом виде для дальнейшей обработки. То, что представлено ниже выдает что-то типа: WWW::Mechanize::Link=ARRAY(**1d07008) 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";
}
mario_315 вне форума
 
Ответить с цитированием Вверх
Здесь может быть Ваша реклама


Реклама: тепловая завеса тепломаш кэв-24п5042еHikVision DS-2CD2T47G2-L-4MMналобный осветитель для лор врача купить в москвекуплю кресло руководителяlufberg


Старый 21.12.2008, 23:56   #2
DenisRedis
Неактивный пользователь
 
Пол:Мужской
Регистрация: 21.12.2008
Сообщений: 4
Репутация: 3
По умолчанию Re: Вопрос по ссылкам

так примерно:
Код:
use strict;
use locale;
use LWP::Simple;
use HTML::TreeBuilder;

my $text = get('http://www.nowa.cc/showthread.php?t=189249');
my $tree = HTML::TreeBuilder->new();
$tree->parse($text);

for my $a ( $tree->find_by_tag_name('a') ) {
    print $a->attr('href') . "\n";
}
можно и проще. посмотрите подробнее lwp и html модули.
DenisRedis вне форума
 
Ответить с цитированием Вверх
Старый 24.12.2008, 19:44   #3
chorny
Неактивный пользователь
 
Пол:Мужской
Регистрация: 28.12.2007
Сообщений: 43
Репутация: 9
По умолчанию Re: Вопрос по ссылкам

Цитата:
Сообщение от mario_315 Посмотреть сообщение
my @links = $mech->find_all_links( url_regex => qr/\.html$/);

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

Прочитай документацию к WWW::Mechanize http://search.cpan.org/~petdance/WWW-Mechanize-1.52/lib/WWW/Mechanize.pm#$mech-%3Efind_all_links(_..._)
Each of the links returned is a WWW::Mechanize::Link object.
А вот к нему документация: http://search.cpan.org/~petdance/WWW...hanize/Link.pm
chorny вне форума
 
Ответить с цитированием Вверх
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Kubuntu не ходит по ссылкам в Инете chihpyh Вопросы и проблемы 3 03.02.2010 02:11
Как проверить, есть ли по указанным ссылкам файлы на локальном компьютере? Tend Архив 11 13.05.2009 01:26
Вопрос по last.fm F_Krause Скорая помощь 1 09.03.2009 22:52
Переход по ссылкам ribakaba Архив 3 05.12.2008 14:11

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 09:30. Часовой пояс GMT +3.


Copyright ©2004 - 2021 2BakSa.WS

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc. Перевод: zCarot
Время генерации страницы 0.16350 секунды с 13 запросами