14、数据库抽象与Web应用开发

数据库抽象与Web应用开发

数据库抽象的实现

在实现数据库的读写操作时，若要将系统从只读模式转变为读写模式，需要更新访问器。例如，为了实现CD标题的读写操作，可编写如下代码：

package CD;
sub title {
    my ($self, $title) = @_;
    if ($title) {
        $CD::DBI::dbh->do("UPDATE cd SET title = ? WHERE id = ?",
                          undef, $title, $self->{id});
    }
    $self->SUPER::title($title);
}

不过，这样编写代码较为繁琐，使用自动化访问器生成器的目的就是避免此类麻烦，因此可能需要一个能生成支持数据库的访问器的模块。

Class::DBI的使用

Class::DBI是一款出色的对象 - 关系映射模块，它易于学习和设置，具有高度可扩展性，并且有大量辅助模块支持。以下是使用Class::DBI的详细步骤：
1. 创建数据库驱动类 ：
perl package CD::DBI; use base 'Class::DBI'; __PACKAGE__->connection("dbi:mysql:musicdb");
这样做是为了让后续实现的表类知道连接的数据库位置。
2. 定义表类 <