第 1 章：Perl 简介与生态

第 1 章：Perl 简介与生态

“Perl is the duct tape of the Internet.” — 未知

本章带你了解 Perl 的诞生故事、设计哲学、庞大的 CPAN 生态，以及它在现代软件开发中的定位。

1.1 Perl 的诞生与演变

创始人：Larry Wall

Perl 由 Larry Wall 于 1987 年创造。Larry 是一位语言学家和系统管理员，他在美国国家安全局（NSA）工作时，需要一种工具来生成报表和处理文本——当时的 awk 和 sed 不够用，而 C 又太繁琐，于是 Perl 诞生了。

版本历史

为什么没有 Perl 6？

2000 年，社区计划开发 Perl 6 作为 Perl 的"重新设计"。但 Perl 6 的设计理念与 Perl 5 差异巨大，最终在 2019 年正式更名为 Raku，成为一门独立语言。Perl 5 仍然是"Perl"，并且持续活跃更新。

注意：今天说 “Perl”，指的就是 Perl 5。Raku（原 Perl 6）是另一门语言。

1.2 设计哲学

Perl 有几个核心设计原则：

TMTOWTDI（Tim Toady）

“There’s More Than One Way To Do It”

这是 Perl 最著名的哲学。同一个任务可以用多种方式完成。这赋予程序员极大的自由。

# 三种方式打印 "Hello, World!"
print "Hello, World!\n";                     # 方式 1
say "Hello, World!";                          # 方式 2 (Perl 5.10+)
printf "%s\n", "Hello, World!";               # 方式 3

实用主义

Larry Wall 说：“Perl 是为实际问题设计的，不是为了学术优美。” 这意味着：

• 默认做正确的事（Do What I Mean, DWIM）
• 内置正则表达式（Perl 是第一个将正则深度集成的语言之一）
• 灵活的上下文（context）机制

文化遗产

Perl 的许多符号来自 Unix Shell、awk、sed、C 等：

1.3 CPAN — Perl 的宝藏

什么是 CPAN？

CPAN（Comprehensive Perl Archive Network）是 Perl 的模块仓库，创建于 1995 年。它是世界上最大的开源代码库之一。

截至 2026 年：
- 模块数量：超过 250,000 个
- 发行版（distribution）：超过 45,000 个
- 作者：超过 14,000 名贡献者
- 网站：https://metacpan.org/

CPAN 能做什么？

几乎你能想到的所有任务，CPAN 上都有现成的模块：

CPAN 与其他语言包管理器对比

提示：CPAN 的一大优势是 向后兼容性。2000 年写的模块，很多在 2026 年仍然能正常工作。

1.4 适用场景

Perl 擅长的领域

为什么一些公司仍在使用 Perl？

Perl 不太适合的场景

1.5 Perl 与其他语言对比

完成同一任务的代码对比

任务：读取文件，统计每行的单词数，输出平均值

Perl：

#!/usr/bin/env perl
use strict;
use warnings;

my $total = 0;
my $lines = 0;

while (<>) {
    chomp;
    my @words = split /\s+/;
    $total += scalar @words;
    $lines++;
}

printf "平均每行 %.1f 个单词\n", $total / $lines if $lines;

Python：

#!/usr/bin/env python3
import sys

total = 0
lines = 0

for line in sys.stdin:
    words = line.strip().split()
    total += len(words)
    lines += 1

if lines:
    print(f"平均每行 {total / lines:.1f} 个单词")

对比分析：

1.6 为什么现在还值得学 Perl？

1. 维护遗留系统：大量系统仍在运行 Perl 代码，需要维护人员
2. 文本处理之王：没有比 Perl 更强大的文本处理工具
3. CPAN 生态成熟：25 年积累的模块库，质量可靠
4. 薪资优势：Perl 开发者稀缺，薪资通常较高
5. 系统管理必备：Unix/Linux 系统管理的核心技能
6. TMTOWTDI：学习多种编程范式，拓宽思维

1.7 第一次运行 Perl

在终端中检查你的 Perl 版本：

perl -v

输出示例：

This is perl 5, version 38, subversion 2 (v5.38.2)

执行一行代码：

perl -e 'print "Hello from Perl $^V\n"'

1.8 社区资源

本章小结

练习

1. 在终端中运行 perl -v，记录你的 Perl 版本
2. 运行 perl -e 'print "Hello Perl\n"'，确认能正常输出
3. 访问 https://metacpan.org/，搜索一个你感兴趣的模块
4. 思考：你日常工作中有哪些任务可以用 Perl 自动化？

扩展阅读

• Programming Perl (Camel Book) — Perl 圣经
• Modern Perl — Modern Perl 免费在线书
• Perl 的历史 — Perl 官方历史网站
• CPAN FAQ — CPAN 常见问题