494 Глава 13 • Классы, об-ьекты и связи Пример 13.7. Tie::RevHash

package Tie::RevHash; use Tie::RefHash; use vars qw(@ISA); @ISA = qw(Tie::RefHash); sub STORE {

my (Sself, Skey, Svalue) = @ ;

Sself->SUPER::STORE($key, Svalue);

Sself->SUPER::STORE(Svalue, Skey);

sub DELETE {

my (Sself, Skey) = @ ;

my Svalue = $self->SUPER::FETCH($key);

$self->SUPER::DELETE($key);

$self->SUPER::DELETE($value);

Пример связывания. Манипулятор с подсчетом обращений

Пример связывания для файлового манипулятора выглядит так:

use Counter;

tie *СН, Counter;

while (<СН>) {

print "Got $ \n";

При запуске эта программа выводит Got 1, Got 2 и так далее - пока вы не прервете ее, не перезафузите компьютер или не наступит конец света (все зависит от того, что случится раньше). Простейшая реализация приведена в примере 13.8.

Пример 13.8. Counter

package Counter; sub TIEHANDLE {

my Sclass = shift;

my Sstart = shift;

return bless \$start => Sclass;

sub READLINE {

my Sself = shift; return ++$$self;

Пример связывания. Дублирование вывода по нескольким манипуляторам

Напоследок мы рассмотрим пример связанного манипулятора, который обладает tee-подобными возможностями - он объединяет STDOUT и STDERR:

> Смотри также-

Функция tie описана в perlfunc(i) иperltie(i).

use Tie::Тее;

tie -TEE, Tie::Tee, .STDOUT, -STDERR; print TEE "This line goes both places.\n";

Или более подробно:

#!/usr/bin/perl К demo tietee use Tie::Tee; use Symbol;

©handles = (.STDOUT); for $i ( 1 .. 10 ) {

push(@handles, $handle = gensymO);

open($handle, ">/trap/teetest.$i");

tie TEE, Tie::Tee, ©handles;

print TEE "This lines goes many places,\n";

Содержимое файла Tie/Тее.рт показано в примере 13.9. Пример 13.9. Tie::Tee

package Tie::Тее;

sub TIEHANDLE {

ray Sclass = shift; my Shandies = [© ];

bless Shandies, Sclass; return Shandies;

sub PRINT {

my Shref = shift;

my Shandle;

my Ssuccess = 0;

foreach Shandle (©Shref) {

Ssuccess += print Shandle © ;

return Ssuccess == ©Shref;

Базы данных

Все, чего я прошу, - это информация. Чарльз Диккенс, Дзвид Копперфильд»

Введение

Базы данных встречаются везде, где происходит обработка данных. На простейшем уровне базой данных можно считать любой файл, а на самом сложном - дорогую и сложную реляционную базу данных, обрабатывающую тысячи транзакций в секунду. Между этими полюсами расположены бесчисленные механизмы ускоренного доступа к более или менее структурированным данным. Perl поддерживает работу с базами данных на любом из этих уровней.

На заре компьютерной эпохи люди заметили, что базы данных на основе плоских файлов плохо подходят для работы с большими объемами информации. Плоские файлы улучшались посредством введения записей фиксированной длины или индексирования, однако обновление требовало все больших затрат, и некогда простые приложения увязали в болоте ввода/вывода.

Умные программисты почесали в затылках и разработали более удачное решение. Поскольку хеш, находящийся в памяти, обеспечивает более удобный доступ к данным по сравнению с массивом, хеш на диске также упростит работу с данными по сравнению с «массивообразным» текстовым файлом. За ускорение доступа приходится расплачиваться объемом, но дисковое пространство в наши дни стоит дешево (во всяком случае, так принято считать).

Библиотека DBM предоставляет в распоряжение программистов простую и удобную базу данных. С хешами, ассоциированными с DBM-файлами, можно выполнять те же операции, что и с хешами в памяти. В сущности, именно так построена вся работа с базами данных DBM в Perl. Вы вызываете dbmopen с именем хеша и именем файла, содержащего базу данных. Затем при любом обращении к хешу Perl выполняет чтение или запись в базе данных DBM на диске.

Рецепт 14.1 демонстрирует процесс создания базы данных DBM, а также содержит рекомендации относительно ее эффективного использования. Хотя с файлами DBM допускаются все операции, разрешенные для простых хешей, возникают