60、Perl与HTML编程：CD数据库与网页构建指南

Perl与HTML编程：CD数据库与网页构建指南

1. Perl中的数据绑定与CD数据库

在Perl编程里，存在诸多能将数据结构与文件绑定的模块。例如， DB_File 借助Berkeley DB库把数组和文本文件绑定。在CD数据库示例中，本可以用它来替代程序开头和结尾对数据文件的读写操作。而 MLDBM （多级DBM）模块则用于在DBM中存储复杂的数据结构，下面将用它实现CD数据库的最终版本。

1.1 CD数据库程序框架

以下是完整的程序框架，后续会详细展开各个函数：

use MLDBM qw(AnyDBM_File);
my $record;
tie(%tmp, "MLDBM", "cddb.db")
or die "Couldn't tie DB.\n"; # 复杂的哈希结构包含整个数据库
%database = %tmp; # 解决MLDBM的一个限制
# 优雅地处理退出信号
$SIG{INT} = sub { %tmp = %database; untie %tmp } ;
system("clear");
print "\n\nCD Database Manager\n\n";
while (1) {
    my $menu_choice = main_menu($record);
    if ($menu_choice eq "a") { $record = add_cd(); }
    elsif ($menu_choice eq "r") { remove_cd($record); undef $record; }