Вопросы и ответы
Никогда не поздно перечитать
Мудрость, накопленная годами
Адреса и телефоны
Cправочник района Теплый Стан
Сделано с душой. Сделано для себя
Календарь-афиша
Планы, события, мероприятия
Наш личный органайзер :-)
Теплый Стан. Главная страница Теплый Стан
FAQ и Правила • Поиск • Регистрация • Вход

Новые темы • Обновленные темы • Популярные темы • Последние опросы
Статистика форума • Рубрикатор форума • Справочник • Календарь • На главную

Программирование на Perl: полное прочтение сайта teplak.ru
На первое сообщение темы    На последнее сообщение темы
Начать новую тему   Ответить на тему    Список форумов Теплый Стан -> Наш сайт и форум
Предыдущая тема :: Следующая тема  
Автор Сообщение
Линуксоид
Кандидат в активисты



Откуда: 5 микрорайон Тёплого Стана
Появился: 12.06.2019
Сообщения: 79

Сообщение Добавлено: 31-07-2019, 15:35        Ответить с цитированием  

Решил я неспеша просмотреть весь форум по всем веткам и разделам.
Узнал, что есть такой модуль в Perl, который позволяет отискать последовательно и неспешно все варианты.
Называется LWP.
Просмотрев URL понял, что всё довольно хорошо идентифицируется цифрами.
И вот что получилось (под катом):


Код:

#!/usr/bin/perl

use strict;
use utf8;
use LWP::Simple;

binmode(STDOUT, ':utf8');
binmode(STDERR, ':utf8');

# Начальный идентификатор и количество итераций от него же.
my $start_t=33;
my $finish_t=$start_t+10;
my $t;

# основной цикл по темам подряд
for ($t=$start_t; $t<=$finish_t; $t++) {
        my $url = 'http://www.teplak.ru/frm/viewtopic.php?t='. $t;
        my $content = get $url;

        die "Не могу получить $url" unless defined $content;

#       print $content;

        # проверим что тема живая (есть поле, например, "Автор")
        if ($content =~ m/Автор/i) {
                #print "Ветка $url есть\n";
                print "$url\n";
        }
        else {
                print STDERR "Ветка $url отсутствует\n";
        };
        sleep 10;       
}




Кто ещё пишет какие интересные коды и на каком языке для форума и сайта?


       
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Теплый Стан -> Наш сайт и форум Часовой пояс: GMT + 3
Страница 1 из 1


Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Главная    Справочник    Календарь    Форум    Фотографии    Новости    Блог    Статьи    Объявления    Вакансии    Гостевая    Карта сайта    Реклама





           

Copyright: Antah (C), 2006-2017

Теплый Стан. Обратная связь