Category Archives: Perl-модули – документация

Devel::InnerPackage

Модуль предоставляет всего одну функцию list_packages(), которая ищет все вложенные пакеты в указанном пакете и возвращает их названия в виде списка.

Использование pid-файлов для предотвращения повторного запуска скрипта

Использование модулей File::Pid, Pid::File::Flock и File::Flock::Tiny. Блокировки файлов, работа с pid-файлами. Работа только одной копии скрипта в один момент времени. Защита от повторного запуска одного и того же скрипта, до того, как первый экземпляр завершит свою работу.

Как нарисовать диаграмму с помощью GD::Graph и perl

Заметки о создании диаграмм с помощью perl и GD::Graph. Примеры кода. Примеры создания диаграмм для фондового рынка. Все примеры протестированы в windows-среде. Я не ставила перед собой цели создать объемное руководство по GD::Graph, поэтому ниже в основном только примеры кода.

Что такое HTML::FormFu в perl

Что такое HTML::FormFu в perl. Как использовать HTML::FormFu, простые примеры. Создание форм, обработка данных. Введение в HTML::FormFu для начинающих. Что такое HTML::FormFu и для каких задач его можно использовать HTML::FormFu – это фреймворк для работы с формами. Предоставляет инструментарий для создания и проверки форм, загрузки и обновления данных, включая сохранение полученных данных в БД.… Read More »

Что такое Moose в Perl. Руководство для начинающих

Что такое Moose в perl. Для чего нужен Moose. Как его использовать. Функции Moose. Классы, роли, атрибуты, объекты Moose и т.д. Введение в Moose для начинающих. Moose переводится с английского как “американский лось”. Это название идет к нему как нельзя лучше. Большая и суровая корова. Молока не будет, по рогам получите. Ну вы поняли, как… Read More »

Что такое метаклассы в perl? Использование Class::MOP

Что такое метаклассы. Для чего нужны метаклассы. Что такое метаобъектный протокол. Что такое Class::MOP. Для чего используется Class::MOP. Что такое метаклассы? В ООП метаклассом является класс, экземплярами которого являются не объекты, как обычно, а классы. Так же, как обычный класс определяет поведение некоторых объектов, метакласс определяет поведение некоторых классов и их экземпляров.

DBIx::Class. Создание записей в таблицах БД, их поиск, обновление и удаление. Примеры кода

Поиск записей Выполнение SELECT-запросов.

my $rs = $schema->resultset('Recipe')->search({
    author_id => $author_id,
  }, {
    order_by => { -desc => 'id' }, # ORDER BY id DESC
    rows => 10, page => 2, # LIMIT x, y
    columns => [qw/id name author_id/], # SELECT id, name, author_id
  });

my $rs = $schema->resultset('Recipe')->search({

author_id => $author_id,

}, {

order_by => { -desc => 'id' }, # ORDER BY id DESC

rows => 10, page => 2, # LIMIT x, y

columns => [qw/id name author_id/], # SELECT id, name, author_id

});

Примечание: у postgresql работа с ограничениями на количество строк идет не только через LIMIT, но и OFFSET.

DBIx::Class – Как создать схему БД

Когда я впервые познакомилась с DBIx, впечатления были самые матерные. Но ничего, привыкла. Начала даже находить в ORM логику и смысл :) Создание схемы для DBIx::Class Создание схемы для DBIx состоит из нескольких этапов:

Пример простого SOAP-сервера на основе компоненты POE::Component::Server::SOAP и SOAP-клиента на основе SOAP::Lite

SOAP-сервер Компонента POE::Component::Server::SOAP для реализации работы с SOAP использует достаточно популярный модуль SOAP::Lite. В момент вызова метода new(), POE::Component::Server::SOAP создает новую сессию POE. Сразу после создания сессии запускается сервер, на основе компоненты POE::Component::Server::SimpleHTTP.

Самый простой http-клиент на perl

#!/usr/bin/perl

use strict;

use LWP::UserAgent;

my $request = HTTP::Request->new(GET => 'http://localhost:32080/');
$request->header('Content-Type' => 'text/xml');

my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);

print $response->content;

#!/usr/bin/perl

use strict;

use LWP::UserAgent;

my $request = HTTP::Request->new(GET => 'http://localhost:32080/');

$request->header('Content-Type' => 'text/xml');

my $ua = LWP::UserAgent->new;

my $response = $ua->request($request);

print $response->content;