::Ворота в Perl::
Движок для создания заданий на загрузку файлов/папок на фтп сервера,
с последующей распаковкой, с поддержкой многопоточности. В качестве базы данных движок использует SQLite. Выкладываю полную версию, готовую к разворачиванию на вашем хостинге.
Думаю что время SMTP-серверов без авторизации "кануло в лету".
Во всяком случае на большинстве (если не на всех) публичных сервисах - точно. Отсюда вытекает необходимость работать с SMTP с поддержкой авторизации.
NB: Я предпочитаю работать с сетью по возможности через модули более низкого уровня, то есть принцип примерно такой:
- Если задача реализуема через Socket.pm, я использую его,
иначе: IO::Socket, иначе LWP.
- Если задача реализуема через модуль семейства Net::, я использую
соответствующий модуль. Хотя в большинстве своем модули Net:: - надстройка над модулем IO::Socket, для некоторых протоколов вполне оправданно их применение. Хотя есть некоторые специфичные задачи для которых необходимо использовать Net::RawIP, который имеет более низкий уровень чем даже Socket.pm.
Программисты всегда признавали, что отделение логики от представления - хорошая вещь. Сообщество Perl создало множество прекрасных систем для того чтобы делать только это. Тем не менее, не смотря на большое количество систем, все они укладываются в рамки двух моделей: модель pipeline и модель callback. Самые известные из представителей первой модели - HTML::Template и Template Toolkit. Шаблоны этих систем содержат простую логику представления в виде циклов, операторов условия и переменных (хотя TT гораздо более продвинутый и имеет очень обширные возможности - прим. Пер.). Программа на Perl в данной модели просто выполняет свою работу, затем загружает и обрабатывает соответствующий шаблон, так как будто бы данные текли через трубопровод (где на вход поступил шаблон и данные, а на выходе все это было смешанно и обработано в единое представление данных). Mason и Embperl относятся ко второй категории (callback). Они смешивают код и разметку шаблонов, и в данном случае шаблон «вызывает» Perl, когда он сталкивается с логикой программы.
Возможно многие слышали о детерминированных конечных автоматах. Это интересная тема, и я хотел бы изложить ее в виде небольшого и очень простого скрипта на perl, демонстрирующего принцип конечного автомата.
Предлагаю вашему вниманию приложение для создания карточек клиентов в Excel, через Web-интерфейс, которое я писал для интеграции в один проект. Собственно говоря ничего революционного в нем нет, но возможно это приложение будет интересно другим программистам Perl, как пример работы с модулем CGI::FormBuilder (без Catalyst'a), и модулем Excel::Template.
Натолкнулся сегодня на интересный пост на секлабе, перепечатанный с касперского.
Больше всего конечно удивился близорукости комментариев на секлабе. Цитирую особенно отличившихся:
>А теперь главный вопрос - как эти скрипты запускаются на компьютере Жертвы?
> Без рута троян нничего не сделает
....
Около двух месяцев назад писал небольшую систему для одной SEO-компании, которая производит простейший анализ сайта по части сбора ссылок, сбора PageRank, Yandex тИЦ, проверки на индексацию страницы Яндексом, кодировку и размер каждой страницы сайта. Предлагаю вашему вниманию готовый дистрибутив, с дампом для БД MySQL, описанием функционала. В данной заметке покажу скриншоты системы, информацию о развертывании дистрибутива вы можете найти в архиве, в файле README.txt.
Недавно мне потребовалось запускать perl-скрипты под TomCat, и возможно многие скажут, что это плохая идея, но в определенных условиях - вполне оправданная. Условия эти: необходимость добавить в Java-проект небольшой функционал, с маленьким траффиком, и минимальной нагрузкой и именно средствами perl. Поднимать под эту задачу apache - неоправданно. Если у вас возникает подобная необходимость, то возможно моя статья поможет вам без лишних хлопот запустить свой perl-скрипт.
Задача когда вы обрабатываете всевозможные входные опции в виде:
if($param eq „new") {
print „new";
}
if($param eq „some") {
print „some";
}
Довольно распрастраненая, особенно в скриптах для web. В известной книге "Сборник рецептов", так называемый Perl Cookbook приводится одно известное решение.
Всем я думаю известны всевозможные парсеры и граберы контента, которые позволяют наполнять новые сайты в кратчайшие сроки и не особо напрягаясь. И если вы владелец такого сайта-донора, то вам будет крайне неприятно однажды обнаружить слизанный с вашего сайт. Я хотел бы предложить не какой-то механизм защиты содержимого страниц, а простой генератор ссылок, который сможет увести в бесконечный цикл массу современных парсеров/граберов контента и ссылок. При этом этот генератор можно использовать для своей же пользы - показывая незадачливому граберу рекламные баннеры :).
Последние комментарии