Perl 参考资料

在线资源

官方资源

Perl 官方网站: https://www.perl.org/
Perl 文档 (perldoc): https://perldoc.perl.org/
CPAN (Comprehensive Perl Archive Network): https://www.cpan.org/
Perl Monks: https://www.perlmonks.org/

学习资源

Learn Perl: https://www.learn-perl.org/
Perl Tutorial: https://www.tutorialspoint.com/perl/
Perl Maven: https://perlmaven.com/
Modern Perl: https://modernperlbooks.com/

书籍推荐

初级

《Perl 语言入门》(Learning Perl)
- 作者: Randal L. Schwartz, brian d foy, Tom Phoenix
- 适合: Perl 初学者
- 介绍: 经典的 Perl 入门教材
《Perl 入门经典》(Beginning Perl)
- 作者: Curtis Poe
- 适合: 编程基础较弱的读者
- 介绍: 从零开始学习 Perl

中级

《Perl 编程》(Programming Perl)
- 作者: Tom Christiansen, brian d foy, Larry Wall, Jon Orwant
- 适合: 有一定 Perl 经验的开发者
- 介绍: Perl 的"圣经"，全面深入
《Perl 进阶》(Intermediate Perl)
- 作者: Randal L. Schwartz, brian d foy, Tom Phoenix
- 适合: 想要深入学习 Perl 的开发者
- 介绍: 涵盖模块、引用、面向对象等

高级

《Mastering Perl》
- 作者: brian d foy
- 适合: 高级 Perl 程序员
- 介绍: 深入探讨 Perl 高级特性
《Modern Perl》
- 作者: chromatic
- 适合: 现代 Perl 开发者
- 介绍: 现代 Perl 的最佳实践

常用 CPAN 模块

基础模块

perl

# 现代 Perl 特性
use Modern::Perl;

# 严格和警告
use strict;
use warnings;

# 基类
use base 'ParentClass';

# 导出
use Exporter qw(import);
our @EXPORT = qw(function1 function2);

数据处理

perl

# JSON 处理
use JSON;
my $json = encode_json($data);
my $data = decode_json($json);

# YAML 处理
use YAML;
my $yaml = Dump($data);
my $data = Load($yaml);

# XML 处理
use XML::Simple;
my $data = XMLin('file.xml');

数据库

perl

# 数据库接口
use DBI;
my $dbh = DBI->connect(...);

# MySQL 特定
use DBD::mysql;

# PostgreSQL 特定
use DBD::Pg;

# SQLite 特定
use DBD::SQLite;

网络

perl

# HTTP 客户端
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $response = $ua->get($url);

# Web 框架
use Mojolicious;

# HTTP 服务器
use HTTP::Daemon;

# 邮件发送
use Email::Stuffer;
use MIME::Lite;

文本处理

perl

# 解析 CSV
use Text::CSV;

# 处理 Markdown
use Text::Markdown;

# 模板引擎
use Template;
use Text::Template;

日期时间

perl

# 日期时间
use DateTime;
my $dt = DateTime->now();

# 时间解析
use Time::ParseDate;

# 高精度时间
use Time::HiRes;

测试

perl

# 测试框架
use Test::More;

# 测试异常
use Test::Exception;

# 测试警告
use Test::Warn;

日志

perl

# 日志框架
use Log::Log4perl;

# 简单日志
use Log::Dispatch;

Perl 版本历史

主要版本

Perl 1.0 (1987): 首个公开版本
Perl 2.0 (1988): 添加正则表达式
Perl 3.0 (1989): 添加二进制数据支持
Perl 4.0 (1991): 改进模块系统
Perl 5.0 (1994): 完全重写，引入面向对象
Perl 5.10+: 现代 Perl，引入 say、given-when 等
Perl 5.38+: 最新稳定版本

Perl 6 / Raku

Perl 6 现在称为 Raku
与 Perl 5 有很大不同
完全重新设计的语言
网站: https://raku.org/

Perl 编码规范

基本规范

perl

# 文件头部
#!/usr/bin/perl
use strict;
use warnings;
use Modern::Perl '2018';

# 缩进：4 个空格
sub function_name {
    my ($param1, $param2) = @_;
    
    # 代码
    return $result;
}

# 命名规范
my $scalar_name = "value";
my @array_name = (1, 2, 3);
my %hash_name = (key => "value");

# 常量
use constant PI => 3.14159;

检查工具

bash

# 使用 perlcritic 检查代码质量
perlcritic script.pl

# 使用 perltidy 格式化代码
perltidy script.pl

# 使用 perldoc 查看文档
perldoc Module::Name

调试工具

内置调试器

bash

# 启动调试器
perl -d script.pl

# 常用调试命令
b 10     # 在第 10 行设置断点
b sub    # 在函数开始设置断点
c        # 继续执行
n        # 单步执行（不进入函数）
s        # 单步执行（进入函数）
x $var   # 显示变量值
p $var   # 打印变量值
q        # 退出调试器

调试模块

perl

# Data::Dumper
use Data::Dumper;
print Dumper($data);

# Devel::Dwarn
use Devel::Dwarn;
Dwarn $data;

# Carp
use Carp;
carp "Warning message";
confess "Error with stack trace";

性能优化

代码优化

perl

# 使用 Benchmark 模块测试性能
use Benchmark qw(cmpthese);

my $data = [1..1000];

cmpthese(1000, {
    'foreach' => sub {
        my $sum = 0;
        $sum += $_ for @$data;
    },
    'for' => sub {
        my $sum = 0;
        for (my $i = 0; $i < @$data; $i++) {
            $sum += $data->[$i];
        }
    }
});

优化建议

使用哈希查找替代线性搜索
预编译正则表达式
避免不必要的字符串复制
使用内置函数而非自定义实现
考虑使用 XS 加速关键代码

社区资源

论坛和讨论组

Perl Monks: https://www.perlmonks.org/
Stack Overflow Perl 标签: https://stackoverflow.com/questions/tagged/perl
Reddit /r/perl: https://www.reddit.com/r/perl/
Perl 邮件列表: https://lists.perl.org/

会议和活动

The Perl Conference (TPC): https://www.perlconference.org/
Perl Workshop: 各地区 Perl 研讨会
YAPC (Yet Another Perl Conference): 过去的 Perl 会议

实用脚本

快速模板

perl

#!/usr/bin/perl
use strict;
use warnings;
use Modern::Perl '2018';

# Main code
main();

sub main {
    say "Hello, World!";
}

模块模板

perl

package My::Module;
use strict;
use warnings;
use Modern::Perl '2018';

our $VERSION = '1.00';

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
    return $self;
}

1;

__END__

=head1 NAME

My::Module - A sample module

=head1 SYNOPSIS

    use My::Module;

    my $obj = My::Module->new();

=head1 DESCRIPTION

This module does something useful.

=head1 AUTHOR

Your Name <you@example.com>

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

学习路径建议

初学者（1-3 个月）

阅读《Perl 语言入门》
掌握基本语法和数据类型
学习正则表达式
完成小项目练习

中级（3-6 个月）

阅读《Perl 进阶》
学习模块和包
掌握面向对象编程
学习数据库操作
学习网络编程基础

高级（6-12 个月）

阅读《Perl 编程》
深入学习高级特性
学习性能优化
掌握复杂项目架构
贡献开源项目

持续学习

保持更新

关注 Perl 官方博客
订阅 Perl Weekly 时事通讯
参加 Perl 社区活动
阅读 CPAN 模块文档

实践项目

开发实用的工具脚本
贡献 CPAN 模块
参与 Perl 开源项目
分享学习经验

小结

本章节提供了 Perl 的参考资料：

✅ 在线资源
✅ 书籍推荐
✅ 常用 CPAN 模块
✅ Perl 版本历史
✅ 编码规范
✅ 调试工具
✅ 性能优化
✅ 社区资源
✅ 学习路径建议

感谢你学习 Perl 教程！祝你在 Perl 编程之旅中取得成功！

Perl 参考资料 ​

在线资源 ​

官方资源 ​

学习资源 ​

书籍推荐 ​

初级 ​

中级 ​

高级 ​

常用 CPAN 模块 ​

基础模块 ​

数据处理 ​

数据库 ​

网络 ​

文本处理 ​

日期时间 ​

测试 ​

日志 ​

Perl 版本历史 ​

主要版本 ​

Perl 6 / Raku ​

Perl 编码规范 ​

基本规范 ​

检查工具 ​

调试工具 ​

内置调试器 ​

调试模块 ​

性能优化 ​

代码优化 ​

优化建议 ​

社区资源 ​

论坛和讨论组 ​

会议和活动 ​

实用脚本 ​

快速模板 ​

模块模板 ​

学习路径建议 ​

初学者（1-3 个月） ​

中级（3-6 个月） ​

高级（6-12 个月） ​

持续学习 ​

保持更新 ​

实践项目 ​

小结 ​

Perl 参考资料

在线资源

官方资源

学习资源

书籍推荐

初级

中级

高级

常用 CPAN 模块

基础模块

数据处理

数据库

网络

文本处理

日期时间

测试

日志

Perl 版本历史

主要版本

Perl 6 / Raku

Perl 编码规范

基本规范

检查工具

调试工具

内置调试器

调试模块

性能优化

代码优化

优化建议

社区资源

论坛和讨论组

会议和活动

实用脚本

快速模板

模块模板

学习路径建议

初学者（1-3 个月）

中级（3-6 个月）

高级（6-12 个月）

持续学习

保持更新

实践项目

小结