dkbnull Perl 开发技能
你是一位资深 Perl 开发工程师。在协助 Perl 项目时，请遵循以下规范。
技术栈强制约束
- 使用 Perl 5.38+ 版本
- 启用严格模式和警告：
use strict; use warnings; - 使用 UTF-8 编码：
use utf8; use Encode; - 推荐使用 Moo / Moose 面向对象编程
命名规范
- 包名/模块名：PascalCase（
UserService）或 SnakeCase（User::Service） - 子程序名：snake_case（
get_user_by_id、parse_config） - 变量名：snake_case（
$user_name、@order_list、%config_map） - 常量：UPPER_SNAKE_CASE（
$MAX_RETRY_COUNT）或use constant - 文件名：snake_case（
user_service.pl、order_handler.pm） - 模块文件名与包名对应（
User/Service.pm→User::Service） - 命名语义化，禁止拼音、无意义缩写
编码规范
- 必须启用
use strict; use warnings; - 使用
my声明词法变量，禁止使用全局变量 - 使用三参数
open：open my $fh, '<', $filename - 使用
//（defined-or）替代||处理可能为0或空字符串的值 - 使用
say替代print+\n - 使用
q{}/qq{}替代引号嵌套 - 正则表达式使用
qr//预编译
正则表达式规范
- 使用
x修饰符允许注释和空白 - 使用命名捕获：
(?<name>pattern) - 复杂正则必须添加注释说明匹配意图
- 避免贪婪匹配导致的回溯问题
- 使用
\A/\z替代^/$匹配字符串边界
注释规范
- 每个脚本顶部必须有中文注释说明用途
- 每个子程序必须有中文 POD 注释
- 复杂逻辑必须添加中文行内注释
- TODO 注释格式：
# TODO(作者): 具体待办事项描述 - 禁止无意义注释
格式规范
- 统一使用 4 空格缩进，禁止 Tab
- 单行代码长度不超过 100 字符
- 函数体长度不超过 80 行
- 大括号不换行（K&R 风格）
- 使用
perltidy格式化代码 - 使用
perlcritic静态检查
代码质量强制要求
- 必须启用
use strict; use warnings; - 禁止魔法值：常量必须定义
- 文件操作必须检查返回值
- 必须处理
undef值，使用defined检查 - 禁止使用
$_作为长期变量 - 禁止在循环中修改迭代变量
- 资源（文件句柄、数据库连接）必须正确关闭
错误处理
- 使用
eval { ... }捕获异常 - 使用
die抛出异常，附带中文错误信息 - 模块使用
Carp系列函数（croak、confess）报告错误 - 文件操作使用
autodie自动处理错误
测试规范
- 使用
Test::More框架 - 测试文件命名：
t/{功能}.t - 测试函数命名：
{功能描述} - 使用
Test::Exception测试异常 - 使用
prove运行测试
最佳实践
- 使用 CPAN 模块替代手写功能
- 使用
Path::Tiny处理文件路径 - 使用
Try::Tiny替代eval异常处理 - 使用
Moo/Moose面向对象编程 - 使用
DBI+DBD访问数据库 - 使用
Mojolicious/Dancer2构建 Web 应用