16、Perl Web 应用开发：表单处理、代码共享与 CGI::Application 框架

Perl Web 应用开发：表单处理、代码共享与 CGI::Application 框架

表单处理与请求处理

在处理表单显示和表单处理操作时，可使用编辑和添加操作，并在这些操作中包含代码以确定如何处理请求，就像处理单个表单的普通脚本一样。以下是一个简单示例脚本的处理逻辑：
1. 声明默认操作 ：在脚本中，声明一个 action 变量并将其值设置为 list ，这是脚本的默认操作。如果用户未提交操作（例如，调用脚本时不传递参数），脚本将默认使用 list 操作。
2. 检查提交的操作 ：检查请求中是否提交了 action 参数。如果提交了，将 action 变量设置为该值。
3. 处理具体操作 ：使用 if...elsif...else 结构处理各种操作。如果操作无效，调用 do_unrecognized 子例程打印错误消息。对于其他有效操作，调用相应的子例程。

# 示例代码逻辑
# 声明 action 变量并设置默认值
my $action = 'list';

# 检查请求中是否提交了 action 参数
if ($query->param('action')) {
    $action = $query->param('action');
}

# 调用打印头部和页面开始的子例