14.7. Интерпретация текстового файла в виде строковой базы данных 509

Пример 14.5. recno demo

#!/usr/bin/perl -w

tt recno demo - применение низкоуровневого API для привязок recno use strict;

use vars qw(@lines $dbobj Sfile Si); use DB File;

Sfile = 7tmp/textfile";

unlink Sfile; # Ha всякий случай

Sdbobj = tie(@>lines, "DB.File", Sfile, 0 RDWR0 CREAT, 0666, S0B RECN0) or die "Cannot open file Sfile: S!\n";

tt Сначала создать текстовый файл.

Slines[0] = "zero";

$lines[1] = "one";

Slines[2] = "two";

Slines[3] = "three";

Slines[4] = "four";

# Последовательно вывести записи.

tt i "

tt Метод length необходим из-за того, что при использовании

# связанного массива в скалярном контексте

tt не возвращается количество элементов в массиве.

print "\nORIGINAL\n"; foreach Si (О .. Sdbobj->length - 1) { print "$i: Slines[$i]\n";

tt Методы push и pop

Sa = Sdbobj->pop;

Sdbobi->push("last");

print "\nThe last record was [$a]\n";

# Методы shift и unshift Sa = Sdbobj->shift; Sdbobj->unshift("first");

print "The first record was [Sa]\n";

Й Использовать API для добавления новой записи после записи 2. Si = 2;

$dbobj->put(Si, "Newbie", R IAFTER);

П и еще одной новой записи после записи 1. Si = 1;

Sdbobj->put(Si, "New One", R IBEFORE); Й )далить запись 3

510 Глава 14 . Базы данных Пример 14.5 (продолжение)

$clbobi->del(3);

# Вывести записи в обратном порядке print AnREVERSEXn";

for ($1 = $dbob]->length - 1; $i >= 0; -- $i) { print "$1: $lines[$i]\n";

# To же самое, но на этот раз с использованием функций API print AnREVERSE again\n";

my ($8, $k, $v) = (0, 0, 0); for ($8 = $dbobj->8eq($k, $v, R LAST); $8 == 0;

$s = $dbobj->seq($k, $v, R PREV))

print "$k: $v\n"

undef $dbobj; untie ©lines;

Результат выглядит так:

ORIGINAL

zero

three

four

The last record was [four] The first record was [zero]

REVERSE

last three Newble one

New One first

REVERSE again

last three Newbie one

New One first

Обратите внимание; для перебора массива @lines вместо foreach Sitem (©lines) { }

следует использовать либо

foreach $1 (О .. $dbob3->length - 1) { } либо

for ($done yet = $dbob3->get($k, $v, R FIRST); not $done yet;

$done yet = $dbob3->get($k, $v, R NEXT) )

# Обработать ключ или значение

Кроме того, при вызове метода put мы указываем индекс записи с помощью переменной $1 вместо того, чтобы передать константу. Дело в том, что put возвращает в этом параметре номер записи вставленной строки, изменяя его значение.

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

Документация по стандартному модулю DB File.

14.8. Хранение сложных структур данных в DBM-файлах

Проблема

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

Решение

Воспользуйтесь модулем MLDBM от CPAN - он позволяет хранить в хэше более сложные структуры, нежели строки или числа.

use MLDBM DB File;

tie(%HASH, MLDBM, [... прочие аргументы DBM]) or die $!;

Комментарий

MLDBM использует модуль Data::Dumper (см. рецепт 11.14) для преобразования структур данных в строки и обратно, что позволяет хранить их в DBM-файлах. Модуль не сохраняет ссылки; вместо них сохраняются данные, на которые эти ссылки указывают:

к %hash - связанный хэш

$hash{"Tom Christiansen"} = [ "book author", tchrist@perl.com ]; $hash{"Tom Boutell"} = [ "shareware author", boutell@boutell.com ];

# Сравниваемые имена