$name1 = "Топ Christiansen"; $name2 = "Tom Boutell";

$tom1 = $hash{$name1}; tt Получить локальный указатель

$tom2 = $hash{$name2}; # И еще один

print "Two Toming: $tom1 $tom2\n";

ARRAY(0x73048)ARRAY(0x73e4G)

Каждый раз, когда MLDBM извлекает структуру данных из файла DBM, строится новая копия данных. Чтобы сравнить данные, полученные из базы данных MLDBM, необходимо сравнить значения полей этой структуры;

if ($tom1->[0] eq $tom2->[0] && $tom1->[1] eq $tom2->[1]) {

print "Youre having runtime fun with one Tom made two.\n"; } else {

print "No two Toms are ever alike.\n";

Этот вариант эффективнее следующего:

if ($hash{$name1}->[0] eq $hash{$name2}->[0] M # НЕЭФФЕКТИВНО $hash{$name1}->[1] eq $hash{$name2}->[1 ]) { print "Youre having runtime fun with one Tom made two.\n";

} else {

print "No two Toms are ever alike.\n";

Каждый раз, когда в программе встречается конструкция $hash{.. ,}, происходит обращение к DBM-файлу. Приведенный выше неэффективный код обращается к базе данных четыре раза, тогда как код с временными переменными $tom1 и $tom2 обходится всего двумя обращениями.

Текущие ограничения механизма tie не позволяют сохранять или модифицировать компоненты MLDBM напрямую;

$hash{"Tom Boutell"}->[0] = "Poet Programmer"; # НЕВЕРНО

Любые операции чтения, модификации и присваивания для частей структуры, хранящейся в файле, должны осуществляться через временную переменную:

Sentry = $hash{"Tom Boutell"}; # ВЕРНО

Sentry->[0] = "Poet Programmer"; Shash{"Tom Boutell"} = Sentry;

Если MLDBM использует базу данных с ограниченным размером значений (например, SDBM), вы довольно быстро столкнетесь с этими ограничениями. Чтобы выйти из положения, используйте GDBM File или DB File, в которых размер ключей или значений не ограничивается. Предпочтение отдается библиотеке DB File, поскольку она использует нейтральный порядок байтов, что позволяет использовать базу данных в архитектурах как с начальным старшим, так и с начальным младшим байтом.

# . . .

untie %data;

my %data;

tie (%data, MLDBM, $Persistent Store)

or die "Cant tie to $Persistent Store $data{VARIABLE1} = $VARIABLE1; $data{VARIABLE2} = $VARIA3LE2; # . .

untie %data;

Комментарий

Существенное ограничение MLDBM заключается в том, что структуру нельзя дополнить или изменить по ссылке без присваивания временной переменной. Мы сделаем это в простой программе из примера 14.6, присваивая $array ref перед вызовом push. Следующая конструкция просто невозможна:

push(@{$db{$user}}, Sduration);

Прежде всего, этому воспротивится MLDBM. Кроме того, $db{$user} может отсутствовать в базе (ссылка на массив не создается автоматически, как это делалось бы в том случае, если бы хэш %db не был связан с DBM-файлом). Именно по-

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

Документация по модулям Data::Dumper, MLDBM и Storable от CPAN; рецепты 11.13; 14.9.

14.9. Устойчивые данные

Проблема

Вы хотите, чтобы значения переменных сохранялись между вызовами программы.

Решение

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

use MLDBM DB File;

my ($VARIABLE1,$VARIABLE2);

my $Persistent Store = /projects/foo/data;

BEGIN {

my %data;

tie(%data, MLDBM, $Persistent Store)

or die "Cant tie to $Persistent Store : $!"; $VARIABLE1 = $data{VARIABLE1}: $VARIABLE2 = $data{VARIABLE2};

Новые версии MLDBM позволяют выбрать не только модуль для работы с базами данных (мы рекомендуем DB File), но и модуль сериализации (рекомендуем Storable). В более ранних версиях сериализация ограничивалась модулем Data::Dumper, который работает медленнее Storable. Для использования DB File со Storable применяется следующая команда:

use MLDBM qw(DB File Storable);

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

Документация по модулям Data::Dumper, MLDBM и Storable с CPAN; рецепты 11.13; 14.8.

этому мы проверяем exists $db{$iiser перед тем, как присваивать $array ref исходное значение. Мы создаем пустой массив в случае, если он не существовал ранее.

Пример 14.6. mldbm-demo

#!/usr/bin/perl -w

# mldbm demD - применение MLDBM с DB File

use MLDBM "DBJile";

$db = "/tmp/mldbm-array";

tie %db, MLDBM, $db or die "Cant open $db ; $!";

while(<DATA>) { chomp;

(Suser, Sduration) = split(/\s+/, $,); Sarray ref = exists $db{$user} ? Sdb{Suser} : []; push(@Sarray ref, Sduration): Sdb{$user} = Sarray ref;

foreach Suser (sort keys %db) { print "Suser: "; Stotal = 0;

foreach Sduration (@{ Sdb{Suser} )) { print "Sduration "; Stotal += Sduration;

print "($total)\n";