Everything Claude Code 的 perl-patterns Skill 是专为 Perl 5.36+ 设计的现代开发模式集合，解决了 Perl 应用可维护性、可读性和安全性不足等痛点。它为新代码编写、遗留代码重构、代码审查和模块架构设计等场景，提供了签名、现代 OO、错误处理、正则表达式、文件操作等一站式惯用法和反模式警示，极大提升了 Perl 项目的工程质量与团队协作效率。

Everything Claude Code Perl Patterns Skill：Perl 5.36+ 现代惯用法与可维护 Perl 应用最佳实践

Perl 作为一门历史悠久但极具生命力的语言，长期受困于“写法千人千面、维护成本高、现代特性难以普及”等问题。Everything Claude Code 的 perl-patterns Skill 正是为了解决这些痛点而生：它将 Perl 5.36+ 的现代惯用法、最佳实践与可维护性模式系统化，帮助开发者和团队在 AI 编程助手（如 Claude Code、Codex、Cursor 等）辅助下，快速写出安全、易读、可测试、易扩展的 Perl 代码。

1. 这个 Skill 解决什么问题？

在没有 perl-patterns Skill 的情况下，Perl 项目常见如下困境：

• 新老代码混杂，缺乏统一风格和现代特性（如签名、类型约束、模块组织）。
• 错误处理、文件操作、对象系统等各自为政，容易埋下安全和维护隐患。
• 团队成员习惯不同，代码审查和协作难度大。
• 难以利用 AI 编程助手自动补全、重构或生成高质量 Perl 代码。

而引入 perl-patterns Skill 后，AI 能自动应用 Perl 5.36+ 推荐模式，统一代码风格、强化安全、提升可读性，并为后续的自动化测试、CI/CD、代码审查等打下坚实基础。它与 Everything Claude Code 完全指南 中提到的 Skill/Agent/Hook/Rule 体系深度集成，是 Perl 项目工程化的关键一环。

2. 触发条件：何时自动激活？

perl-patterns Skill 会在以下场景自动被 AI 编程助手调用：

• 新建 Perl 模块、脚本或服务时：生成模板代码、接口、类、文件结构等。
• 对现有 Perl 代码进行审查或重构时：识别反模式、建议现代化改写。
• 迁移老旧（<5.36）代码到新版本时：自动替换过时写法，补充类型和签名。
• 设计 Perl 项目架构、模块分层、依赖管理时：给出标准目录、依赖、配置建议。
• 团队协作、代码评审、CI 检查时：统一风格、自动化 Lint、静态分析。

3. 使用流程 Step by Step

Step 1：新建或接管 Perl 项目

在 AI 编程助手（如 Claude Code）中创建新 Perl 项目时，Skill 会自动输出如下现代模板：

use v5.36;

package MyApp::Service;
use Moo;
use Types::Standard qw(Str Int);

has name => (is => 'ro', isa => Str, required => 1);

sub greet($self) {
    return "Hello, " . $self->name;
}

1;

并建议标准目录结构：

MyApp/
├── lib/
├── bin/
├── t/
├── cpanfile
└── .perlcriticrc

Step 2：自动应用现代惯用法

Skill 会自动推荐并替换如下内容：

• 用 use v5.36; 取代 use strict; use warnings; 等冗余前导。
• 所有子程序使用签名，参数校验自动化。
• 对象系统首选 Moo，类型约束一目了然。
• 文件操作推荐三参 open + autodie 或 Path::Tiny，规避安全隐患。
• 错误处理建议 Try::Tiny 或原生 try/catch（5.40+）。
• 正则表达式采用命名捕获与 /x，提升可维护性。
• 推荐使用 postfix dereferencing（$ref->@*、$ref->%*）。

示例：签名与默认参数

use v5.36;

sub connect_db($host, $port = 5432, $timeout = 30) {
    # ...
}

示例：现代错误处理

use v5.36;
use Try::Tiny;

sub fetch_user($id) {
    my $user = try {
        $db->resultset('User')->find($id)
            // die "User $id not found\n";
    }
    catch {
        warn "Failed to fetch user $id: $_";
        undef;
    };
    return $user;
}

Step 3：自动识别反模式并建议修正

Skill 会在代码审查、重构或 PR 检查时，自动标记并建议替换如下反模式：

• 两参 open（安全风险）
• 间接对象语法（new Foo ...）
• 过度依赖 $_，导致可读性下降
• 禁用 strict refs、全局变量配置
• 字符串 eval 加载模块（注入风险）

反例修正建议

# Bad
open FH, $filename;  # 安全风险

# Good
open my $fh, '<:encoding(UTF-8)', $filename;

Step 4：集成现代工具链

Skill 会输出 perltidy、perlcritic、cpanfile、carton 等配置建议，方便团队统一风格和依赖管理。例如：

• .perltidyrc 推荐 4 空格缩进、100 字符行宽等。
• .perlcriticrc 启用 PBP、安全主题，定制规则。
• cpanfile 自动补全 Moo、Path::Tiny、Try::Tiny、Test2::V0 等现代依赖。

Step 5：与其他 Agent/Skill 协作

• 与 Perl Security Skill 联动，自动检测文件操作、模块加载等安全隐患。
• 与 Perl Testing Skill 配合，生成 Test2::V0 测试用例和覆盖率报告。
• 可作为 Code Reviewer Agent 的 Perl 代码审查标准。
• 支持 Hooks 自动化体系，如 PreToolUse 检查、PostToolUse 自动修正。

4. 输出示例

当你在 Claude Code 里输入“帮我重构这段 Perl 代码，符合现代惯用法”，Skill 可能给出如下输出：

# Legacy
use strict;
use warnings;
sub foo {
    my ($x, $y) = @_;
    return $x + $y;
}

# Modernized
use v5.36;
sub foo($x, $y) {
    return $x + $y;
}

或在文件操作场景：

# Bad
open FH, $file;

# Good
use autodie;
open my $fh, '<:encoding(UTF-8)', $file;

5. 常见配套 Agent 与 Skill 协作关系

• Perl Security Skill：自动检测 open、eval、模块加载等安全反模式。
• Perl Testing Skill：生成 Test2::V0 单元测试、Mock、覆盖率建议。
• Code Reviewer Agent：以 perl-patterns 作为审查基线，输出风格与惯用法建议。
• Hooks 自动化：PreToolUse 检查反模式，PostToolUse 自动修正，Stop 事件生成改进建议。

更多 Skill 体系协作细节，可参考 Claude Code 快速上手指南。

---

FAQ

Q: 这个 Skill 支持哪些 Perl 版本？ A: 推荐用于 Perl 5.36 及以上，部分特性（如原生 try/catch、class 关键字）需 5.40+。

Q: 老项目能否平滑迁移到这些现代惯用法？ A: 可以。Skill 提供自动化重构建议，逐步替换 legacy 写法，兼容性风险低。

Q: 需要手动配置 perltidy、perlcritic 吗？ A: Skill 会自动输出推荐配置，你只需将建议内容保存到对应文件即可。

Q: 与 Perl Security Skill 有何区别？ A: perl-patterns 聚焦于现代惯用法和可维护性，Perl Security Skill 专注于安全风险检测与防御，二者可协同使用。

---