27、Perl 认证模块：用户会话认证全流程解析

Perl 认证模块：用户会话认证全流程解析

1. 访问用户数据库

认证模块需要访问 Web 服务器上的持久数据库，该数据库存储用户名、密码哈希、活动会话标识符和时间戳。这里使用 Storable 模块的 lock_store 和 lock_retrieve 方法，它能轻松将复杂的 Perl 变量转换为磁盘上的二进制数据，并再次检索该数据。

操作步骤如下：
1. 导入 Storable 模块的子例程作为函数：

use Storable qw( lock_store lock_retrieve );

2. 将常量 USERDB_FILE 链接到用户数据库文件的完整路径：

use constant { USERDB_FILE => "filename" };

3. 测试文件是否实际存在于磁盘上：

-e USERDB_FILE

4. 将用户数据库加载到内存中：

$self->{ 'db' } = lock_retrieve( USERDB_FILE );