500 Глава 14 • Базы данных Пример 14.1 (продолжение)

use OB File;

$db = /tmp/userstats.db; tt База для хранения данных между запусками

tie(%db, DB Flle, $db) or die "Cant open DB File $db : $!\n";

if (@ARGV) {

If ("@ARGV" eq "ALL") { @ARGV = sort keys %db;

foreach Suser (@>ARGV) {

print "$user\t$db{$user}\n";

} else {

vho = who; # Запустить who(1)

If ($?) {

die "Couldnt run who: $\n"; # Аварийное завершение

tt Извлечь имя пользователя (первое в строке) и обновить foreach Sline CSiwho) { Sline =~ /-(\S+)/;

die "Bad line from who: $line\n" unless $1; $db{$1}++;

untie %db;

Мы воспользовались командой who для получения списка зарегистрированных пользователей. Обычно результат выглядит следующим образом;

gnat ttyp1 Hay 29 15:39 (coprollth.frll.com)

Если вызвать программу userstats без аргументов, она проверяет зарегистрированных пользователей и соответствующим образом обновляет базу данных.

Передаваемые аргументы интерпретируются как имена пользователей, о которых следует вывести информацию. Специальный аргумент "ALL" заносит в PARGV отсортированный список ключей DBM. Для больших хэщей с множеством ключей это обойдется слишком дорого - лучше связать хэш с В-деревом (см. рецепт 14,6).

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

Документация по стандартным модулям GDBMFile, NDBMFile, SDBM File, DB File;perltie{\.y, рецепт 13.15. Влияние umask на процесс создания файлов рассматривается в рецепте 7.1.

14.2. Очистка DBM-файла

Проблема

Требуется стереть все содержимое DBM-файла.

Решение

Откройте базу данных и присвойте ей (). При этом можно использовать функцию dbmopen:

dbmopen(%HASH, SFILENAME, 0666) or die -Cant open FILENAME: S!\n"; %HASH = 0; dbmclose %HASH; ИЛИ tie: use OB File;

tie(%HASH, OB.File", SFILENAME) or die "Cant open FILENAME: $!\n"; %HASH =0; untie %hash;

Существует и другое рещение - удалить файл и открыть его заново в режиме создания:

unlink SFILENAME

or die "Couldnt unlink SFILENAME to empty the database: S!\n"; dbmopen(%HASH, SFILENAME, 0666)

or die "Couldnt create SFILENAME database: $!\n";

Комментарий

Возможно, удаление файла с последующим созданием выполняется быстрее, чем очистка, но при этом возникает опасность подмены, которая может нарушить работу неосторожной программы или сделать ее уязвимой для нападения. В промежуток между удалением файла и его повторным созданием нападающий может создать ссылку, указывающую на жизненно важный файл /etc/precious, с тем же именем, что и у вашего файла. При открытии файла библиотекой DBM содержимое /etc/precious будет уничтожено.

При удалении базы данных DB File с повторным созданием теряются значения всех настраиваемых параметров - размер страницы, фактор заполнения и т. д. Это еще один веский довод в пользу присваивания связанному хэшу пустого списка.

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

Документация по стандартному модулю DB File; рецепт 14.1. Функция unlink описана в perlfunc{\).

14.3. Преобразование DBM-файлов

Проблема

у вас имеется файл в одном формате DBM, однако другая программа желает получить данные в другом формате DBM.

Решение

Прочитайте ключи и значения из исходного DBM-файла и запишите их в другой файл в другом формате DBM, как показано в примере 14.2.

Пример 14.2. dbZgbdm

в!/usr/bin/perl -W

В db2gdbm: преобразование DB в GOBM

use strict;

use DB File; use GOBM File;

unless (@ARGV == 2) {

die "usage: db2gdbm infile outfile\n";

my (Sinfile, Soutfile) = @ARGV; my (%db in, %db out);

# Открыть файлы

tie(%db in, DB.File, Sinfile)

or die "Cant tie Sinfile: $!"; tie(%db out, GDBM File, Soutfile, GDBM WRCREAT, 0666)

or die "Cant tie Soutfile: $!";

В Скопировать данные (не пользуйтесь %db out = %db in,

# потому что для больших баз это работает медленно) while (my($k, $v) = each %db in) {

Sdb out{Sk} = $v;

В функции untie вызываются автоматически при завершении программы untie %db in; untie %db out;

Командная строка выглядит так;

% db2gdbm /tmp/users,db /tmp/users.gdbm

Комментарий

Если в одной программе используются различные типы DBM-файлов, вам придется использовать интерфейс tie, а не dbmopen. Дело в том, что интерфейс