%tmp=%h;

delete $tmp{users}->{'somebody'};

%h=%tmp;

untie %h;

Добавлять тоже через временный хеш:

tie(%h,"MLDBM","glob.db",O_RDWR|O_CREAT,0666) or die "Couldn't tie DB_File $users: $!; aborting";

%tmp=%h;

$tmp{users}->{'morpheus'}->{password}='zion';

%h=%tmp;

untie %h;

И в моем примере, и в других базах используется работа с хешами, поэтому давайте рассмотрим несколько примеров работы с хешами...

n  Сортировка ключей хеша по алфавиту:

foreach $key (sort keys %unsorted){

$val = $unsorted{$key};

# здесь переборка ключей хеша по алфавиту

# делаем что-то c $key и $val

}

n  Сортировка по ассоциированным значениям:

foreach $key (sort {$unsorted{$a} cmp $unsorted{$b} } keys %unsorted){

$val = $unsoreted{$key};

# что-то делаем с $key и $val...

}

n  Сортировка по длине значений (почти также, как и просто по значениям):

foreach $key (sort {length($unsorted{$a}) <=> length($unsorted{$b}) } keys %unsorted){

$val = $unsoreted{$key};

# что-то делаем с $key и $val...

}

Дальше рассмотрим небольшие примеры работы с базами данных MySQL, при помощи модуля DBI и драйвера для работы с MySQL – DBD::mysql. Эти модули также можно установить через ppm. А теперь посмотрим пример работы с MySQL:

#!/usr/bin/perl

use DBI;

# настройки SQL сервера

$user     = "synthetic";       # логин и

$password = "test";            # пароль для доступа к серверу

$host     = "localhost";       # адрес SQL-сервера

$db       = "site";            # база данных, с которой соединяемся

$port     = 3306;              # порт (взят по умолчанию)

$driver   = "mysql";           # это драйвер для базы данных, т.е.  вы можете указать драйвер своей

                               # базы и спокойно соединятся с ней (естественно зная ее семантику)