探索Perl的奇妙世界：入门学习与实战指南

在这里插入图片描述

一、Perl语言概述

1.1 Perl的起源与发展

Perl（Practical Extraction and Reporting Language）是一种高级、解释型、动态编程语言，由Larry Wall于1987年发明。Perl的初衷是作为一种文本处理工具，帮助系统管理员在Unix系统中处理报告和日志文件。随着互联网的兴起，Perl迅速发展成为了一种流行的Web开发语言，尤其是在CGI（Common Gateway Interface）程序的开发中。

Perl的发展历程可以分为几个阶段：

1987年，Larry Wall发布了Perl 1.0，这是一个简单的脚本语言，主要用于文本处理。
1989年，Perl 4.0发布，开始支持正则表达式，并逐渐成为Unix系统中不可或缺的工具。
1993年，Perl 5.0发布，这是一个重大的更新，引入了许多新的特性和改进，如内置函数、模块支持等。
2000年，Perl 6.0开始开发，尽管直到2015年才正式发布了Perl 6.0，但它已经引导了Perl语言的发展方向。

1.2 Perl的特点与优势

Perl具有以下特点和优势：

多用途：Perl既适合于快速编程，也适合于系统管理、Web开发、生物信息学、游戏开发等多个领域。
强大的文本处理能力：Perl在字符串操作、模式匹配、文件处理等方面非常出色，是处理文本数据的利器。
高效的编程：Perl的语法简洁，支持多种编程范式，如过程式、面向对象和函数式编程。
丰富的标准库：Perl拥有庞大的标准库，提供了大量的内置模块和函数，可以轻松实现各种功能。
社区支持：Perl拥有一个活跃的开发者社区，提供了大量的资源和文档，方便开发者学习和交流。

1.3 Perl的应用领域

Perl广泛应用于以下领域：

系统管理：Perl是Unix和Linux系统管理员的重要工具，用于自动化脚本、系统监控和日志分析。
Web开发：Perl是CGI脚本的首选语言，也用于服务器端编程，如Apache模块的开发。
生物信息学：Perl在基因序列分析、生物信息数据库管理和生物统计分析中有着广泛的应用。
游戏开发：Perl可以用于开发游戏逻辑和后端服务器，尤其是在多用户在线角色扮演游戏（MMORPG）中。
网络编程：Perl支持多种网络协议，可以用于开发网络服务和网络客户端程序。

二、搭建Perl开发环境

2.1 在Windows系统中安装Perl

在Windows系统上安装Perl，通常推荐使用Strawberry Perl或者ActivePerl。这些版本为Windows用户提供了方便的安装程序和良好的兼容性。

下载Strawberry Perl或ActivePerl安装程序。
双击安装程序并遵循提示完成安装。
安装完成后，将Perl的安装路径添加到系统环境变量的PATH中，以便在命令行中直接使用Perl。
打开命令提示符，输入perl -v，如果看到Perl的版本信息，说明安装成功。

2.2 在Linux和Unix系统中安装Perl

在Linux和Unix系统上，Perl通常是预装的，如果没有安装，可以通过包管理器进行安装。

对于Debian基系统的Linux（如Ubuntu），可以使用sudo apt-get install perl命令安装。
对于Red Hat基系统的Linux（如Fedora），可以使用sudo yum install perl命令安装。
对于FreeBSD系统，可以使用sudo pkg install perl命令安装。

安装完成后，在终端中输入perl -v验证Perl是否安装成功。

2.3 在macOS系统中安装Perl

在macOS系统上，Perl也可能是预装的，如果不是，可以使用Homebrew进行安装。

打开终端。
输入brew install perl命令，然后按提示完成安装。
安装完成后，输入perl -v验证Perl是否安装成功。

2.4 配置Perl开发环境

为了更好地进行Perl开发，您可能需要配置Perl的开发环境，包括安装文本编辑器、集成开发环境（IDE）或代码补全工具。

文本编辑器：推荐使用Sublime Text、Visual Studio Code或Atom等现代文本编辑器，这些编辑器支持Perl语法高亮和代码补全。
集成开发环境（IDE）：可以考虑使用Eclipse、NetBeans或Komodo Edit等支持Perl的IDE。
代码补全工具：对于Perl开发者，可以使用Perl::Complete或其他工具来增强命令行编辑器的代码补全功能。

完成以上步骤后，您的Perl开发环境就配置完成了。接下来，您可以开始学习Perl的基本语法和进行简单的编程练习，逐步探索Perl的奇妙世界。

三、Perl基本语法与数据类型

在这里插入图片描述

3.1 变量与数据类型

在Perl中，变量是区分大小写的，并且不需要显式声明。Perl有几种不同的数据类型，包括标量（数值、字符串、单个变量）、数组、哈希（关联数组）和引用。

案例1：变量与数据类型

# 标量变量
my $number = 42;       # 整数
my $float = 3.14;      # 浮点数
my $string = "Hello, Perl!";  # 字符串
my $boolean = 1;       # 布尔值，在Perl中1和0代表真和假

# 数组
my @array = (1, 2, 3);  # 数组中的元素用逗号分隔

# 哈希（关联数组）
my %hash = (
    key1 => 'value1',
    key2 => 'value2',
);

# 引用
my $ref = \@array;      # 引用一个数组
my $hash_ref = \%hash;  # 引用一个哈希

3.2 运算符与表达式

Perl支持多种运算符，包括算数运算符、比较运算符、逻辑运算符等。Perl的运算符优先级是从左到右的。

案例2：运算符与表达式

# 算数运算符
my $result = 2 + 2;       # 加法
my $product = 5 * 5;      # 乘法
my $sum = 1..10;          # 范围运算，相当于1+2+3+...+10

# 比较运算符
if ($number > 40) {
    print "Number is greater than 40.\n";
}

# 逻辑运算符
if ($number > 10 && $float < 4.0) {
    print "Both conditions are true.\n";
}

# 字符串连接运算符
my $combined_string = "The answer is " . $number;

3.3 控制结构

Perl的控制结构包括条件语句（if、unless、until、while）和循环语句（for、foreach、while）。

案例3：控制结构

# 条件语句
if ($number > 0) {
    print "Positive.\n";
} elsif ($number < 0) {
    print "Negative.\n";
} else {
    print "Zero.\n";
}

# unless语句（与if相反）
unless ($number > 0) {
    print "Negative or zero.\n";
}

# until循环（与while相反）
my $i = 1;
until ($i > 10) {
    print $i . "\n";
    $i++;
}

# while循环
my $j = 1;
while ($j <= 5) {
    print $j . "\n";
    $j++;
}

# for循环（通常用于数组）
for my $k (1..5) {
    print $k . "\n";
}

# foreach循环（通常用于哈希）
foreach my $key (keys %hash) {
    print "$key => $hash{$key}\n";
}

3.4 函数与模块

Perl函数是执行特定任务的代码块。您可以自己定义函数，也可以使用已有的模块中的函数。

案例4：函数与模块

# 定义一个简单的函数
sub greet {
    print "Hello, World!\n";
}

# 调用函数
greet();

# 使用模块中的函数
use Math::Pi;               # 导入Math::Pi模块
my $pi = Math::Pi->new->pi; # 获取圆周率
print "The value of pi is: $pi\n";

在Perl中，模块是一种包含函数和变量的封装，可以通过use语句来导入和使用模块中的功能。模块通常以.pm为文件扩展名，可以通过Perl的模块管理器CPAN来安装和使用。

四、文本处理与正则表达式

4.1 Perl在文本处理方面的优势

Perl之所以在文本处理方面表现出色，是因为它拥有强大的字符串操作能力、灵活的的正则表达式支持以及丰富的文本处理相关模块。Perl的默认内建模块就提供了大量的用于处理文本的函数，如split、join、map、grep等，这些函数可以轻松地对文本进行分割、连接、映射和过滤。

案例5：Perl文本处理示例

# 分割字符串
my $string = "perl is fun";
my @words = split(/\s+/, $string);  # 分割成单词

# 连接字符串
my @array = ("Hello", "World");
my $combined_string = join(" ", @array);  # 连接成一个字符串

# 映射和过滤
my @numbers = (1, 2, 3, 4, 5);
my @squared_numbers = map { $_ ** 2 } @numbers;  # 计算每个数字的平方

# 使用正则表达式
my $text = "The quick brown fox jumps over the lazy dog";
my @matches = $text =~ /quick|brown|jumps/g;  # 查找所有匹配的单词

4.2 正则表达式基础

正则表达式（Regular Expression）是一种强大的文本处理工具，它可以用来匹配、查找、替换和分割文本。Perl的正则表达式语法非常灵活，支持大量的特殊字符和构造。

案例6：正则表达式基础

# 匹配特定字符
if ($string =~ /fun/) {
    print "The string contains 'fun'.\n";
}

# 匹配字符类
if ($string =~ /[a-z]/) {
    print "The string contains a lowercase letter.\n";
}

# 匹配数字
if ($string =~ /\d/) {
    print "The string contains a digit.\n";
}

# 匹配开头和结尾
if ($string =~ /^perl$/) {
    print "The string is exactly 'perl'.\n";
}

# 量词
if ($string =~ /fun(s)?/) {
    print "The string contains 'fun' or 'funs'.\n";
}

# 分组和引用
if ($string =~ /(quick) (brown) (fox)/) {
    my @groups = ($1, $2, $3);
    print "The captured groups are: @groups.\n";
}

4.3 使用Perl进行文本处理实战

在实际应用中，Perl的文本处理能力可以帮助您自动化复杂的文本数据分析任务。以下是一个简单的实战案例，展示了如何使用Perl来处理和分析日志文件。

案例7：日志文件分析

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

# 打开日志文件
open(my $logfile, "<", "access.log") or die "Cannot open file: $!";

# 读取并处理日志内容
while (my $line = <$logfile>) {
    # 去除换行符
    $line =~ s/\n//;
    
    # 使用正则表达式匹配IP地址和访问时间
    if ($line =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}) - - $$ (\S+) $$ "(\S+)" (\d+)/) {
        my ($ip, $date, $method, $status) = ($1, $2, $3, $4);
        
        # 打印匹配到的信息
        print "IP: $ip, Date: $date, Method: $method, Status: $status\n";
    }
}

# 关闭文件
close($logfile);

在这个案例中，我们打开了一个名为access.log的文件，并逐行读取内容。我们使用了一个正则表达式来匹配IP地址、访问时间、请求方法和状态码。匹配到的数据随后被打印出来。这个脚本可以作为一个简单的日志分析工具，帮助您快速了解日志文件中的访问记录。

五、文件操作与I/O流

5.1 文件读写与权限管理

在Perl中，文件操作是通过文件句柄来进行的，而文件的读写和权限管理则涉及到文件系统的访问权限。

案例8：文件读写与权限管理

# 打开文件
open(my $fh, "<", "example.txt") or die "Cannot open file: $!";

# 读取文件
while (my $line = <$fh>) {
    print $line;
}

# 关闭文件
close($fh);

# 文件权限
my $mode = 0644;       # 设置默认权限
my $old_umask = umask(0);  # 临时设置掩码为0
chmod($mode, "example.txt") or die "Cannot change file mode: $!";
umask($old_umask);     # 恢复原来的掩码

在上面的代码中，我们首先使用open函数打开一个文件，如果文件打开失败，则die。接着，我们通过while循环和<$fh>迭代器读取文件的内容，并打印出来。使用close函数关闭文件句柄。

文件的权限可以通过chmod函数来修改，umask函数用来设置默认的文件创建权限。在这个案例中，我们设置了文件的默认权限为0644，这意味着所有者有读写权限，组和其他用户有只读权限。

5.2 文件处理实战案例

文件处理是Perl脚本中常见的任务，Perl提供了丰富的函数来处理文件，包括创建、复制、移动、删除等操作。

案例9：文件处理实战

# 创建新文件
open(my $fh, ">", "new_example.txt") or die "Cannot open file: $!";
print $fh "This is a new file.\n";
close($fh);

# 复制文件
open($fh, "<", "example.txt") or die "Cannot open file: $!";
open(my $copy_fh, ">", "copy_example.txt") or die "Cannot open file: $!";
while (my $line = <$fh>) {
    print $copy_fh $line;
}
close($fh);
close($copy_fh);

# 移动文件
rename("example.txt", "old_example.txt") or die "Cannot rename file: $!";

# 删除文件
unlink("old_example.txt") or die "Cannot delete file: $!";

在这个案例中，我们首先创建了一个新文件new_example.txt，并写入了一些文本。然后，我们复制了example.txt文件到copy_example.txt。接着，我们将example.txt重命名为old_example.txt，最后删除了old_example.txt文件。

5.3 I/O流及相关函数

Perl的I/O流函数允许您处理标准输入、标准输出和标准错误。此外，Perl还提供了用于与外部程序通信的函数。

案例10：I/O流及相关函数

# 读取标准输入
print "Enter your name: ";
my $name = <STDIN>;
chomp($name);
print "Hello, $name!\n";

# 写入标准输出
print "This will be written to STDOUT.\n";

# 写入标准错误
print STDERR "This will be written to STDERR.\n";

# 执行外部程序
my $output = `ls -l`;
print "Output of ls -l: $output\n";

# 读取外部程序输出
open(my $pipe, "-|", "ls -l") or die "Cannot execute ls: $!";
while (my $line = <$pipe>) {
    print $line;
}
close($pipe);

在这个案例中，我们首先从标准输入读取用户输入的名字，并打印出一条欢迎消息。接着，我们向标准输出和标准错误分别打印了一些文本。然后，我们使用backticks(````)来执行ls -l命令，并将输出存储在变量$output中。最后，我们通过管道(-|)从ls -l命令的输出中读取文本，并打印出来。

六、Perl在网络编程中的应用

6.1 网络编程基础

网络编程是指编写能够在网络上发送和接收数据的程序。Perl在这方面有着悠久的历史和强大的网络编程能力。Perl提供了用于网络编程的内置模块和函数，如IO::Socket和Net::HTTP等。

案例11：网络编程基础

# 创建一个TCP客户端
use IO::Socket::INET;

my $host = 'www.example.com';
my $port = 80;

my $sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port) or die "Cannot connect to $host:$port: $!";

# 发送HTTP请求
print $sock "GET / HTTP/1.1\r\nHost: $host\r\n\r\n";

# 读取服务器响应
my $response;
while (my $line = <$sock>) {
    $response .= $line;
}

# 关闭socket
close($sock);

# 打印响应
print $response;

在这个案例中，我们创建了一个TCP客户端，它连接到了www.example.com的80端口。然后，它发送了一个简单的HTTP GET请求，并读取了服务器的响应。这个脚本展示了Perl如何用于创建基本的网络客户端。

6.2 使用Perl进行网络编程实战

Perl在网络编程方面的应用非常广泛，从简单的客户端和服务器通信到复杂的网络监控和数据分析。

案例12：网络编程实战

# 创建一个TCP服务器
use IO::Socket::INET;

my $port = 12345;
my $host = '0.0.0.0';  # 监听所有接口

my $sock = IO::Socket::INET->new(LocalPort => $port, LocalAddr => $host) or die "Cannot bind to port $port: $!";

# 循环接受连接
while (my $client_sock = $sock->accept()) {
    print "Accepted connection from ", $client_sock->peerhost(), "\n";
    
    # 循环读取数据
    my $data;
    while (my $line = <$client_sock>) {
        $data .= $line;
    }
    
    # 关闭客户端socket
    close($client_sock);
    
    # 处理数据（这里只是简单地打印）
    print "Received data: $data\n";
}

# 关闭服务器socket
close($sock);

在这个案例中，我们创建了一个TCP服务器，它监听12345端口上的所有 incoming连接。当一个客户端连接时，服务器会接受连接并读取客户端发送的所有数据。这个脚本展示了Perl如何用于创建基本的网络服务器。

七、Web开发与CGI编程

7.1 CGI基础

CGI（Common Gateway Interface）是一种标准协议，它允许Web服务器与外部程序（如Perl脚本）进行通信。CGI程序通常用于处理表单提交、生成动态内容以及与数据库进行交互。

案例13：CGI基础

#!/usr/bin/perl
# cgi-bin/example.cgi

use CGI qw(:standard);

# 获取表单数据
my $name = param('name');
my $email = param('email');

# 打印HTTP头
print header();
print start_html('CGI Example');
print h1('Hello, ' . $name);
print p('Your email address is: ' . $email);
print end_html();

在这个案例中，我们使用CGI模块来处理表单数据。param函数用于获取表单中的参数。然后，我们使用header函数打印HTTP头，start_html和end_html函数分别开始和结束HTML文档的输出。

7.2 使用Perl编写CGI程序

编写CGI程序通常涉及到创建一个可执行的Perl脚本，该脚本位于Web服务器的cgi-bin目录中。

案例14：使用Perl编写CGI程序

#!/usr/bin/perl
# cgi-bin/hello_world.cgi

print "Content-type: text/html\n\n";  # 打印HTTP头
print "<html><body>\n";
print "Hello, World!<br>\n";
print "This is a simple CGI program.\n";
print "</body></html>\n";

在这个案例中，我们创建了一个简单的CGI程序，它打印出“Hello, World!”消息。我们还设置了Content-type头，告诉浏览器输出是HTML。

7.3 Perl在Web开发中的应用案例

Perl不仅限于CGI编程，它还可以用于更复杂的Web开发任务，如创建Web应用程序、API接口和Web服务。

案例15：Perl在Web开发中的应用案例

#!/usr/bin/perl
# webapp/index.pl

use strict;
use warnings;
use CGI qw(:standard);

# 获取查询字符串参数
my $query = param('query');

# 连接数据库
my $dbh = DBI->connect("dbi:SQLite:dbname=/path/to/database.db", undef, undef, { RaiseError => 1, AutoCommit => 0 }) or die $DBI::errstr;

# 执行SQL查询
my $sth = $dbh->prepare("SELECT * FROM products WHERE name LIKE ?");
$sth->execute($query) or die $sth->errstr;

# 获取查询结果
my @results;
while (my @row = $sth->fetchrow_array) {
    push @results, $row[0];
}

# 打印HTTP头
print header("Content-type: text/plain");
print "Products matching '$query':\n";
print join(", ", @results), "\n";

# 提交数据库事务
$dbh->commit;

# 关闭数据库连接
$dbh->disconnect;

在这个案例中，我们创建了一个Web应用程序，它连接到一个SQLite数据库，并根据用户提供的查询参数执行SQL查询。这个应用程序展示了Perl如何用于创建具有数据库交互功能的Web应用程序。

八、Perl与数据库编程

8.1 DBI模块简介

DBI是Perl中用于数据库接口的标准模块。它提供了一种通用的方法来连接和操作不同类型的数据库。通过DBI，Perl程序员可以使用相同的编程接口来处理SQLite、MySQL、PostgreSQL、Oracle等多种数据库。

8.2 使用DBI连接数据库

要使用DBI模块，首先需要确保已经安装了相应的数据库驱动模块，例如DBD::SQLite、DBD::mysql、DBD::Pg等。

案例16：使用DBI连接数据库

#!/usr/bin/perl
# db_connect.pl

use DBI;

# 数据库驱动和数据库名
my $driver = 'SQLite';
my $database = '/path/to/database.db';

# 数据库连接字符串
my $dsn = "dbi:$driver:dbname=$database";

# 连接数据库
my $dbh = DBI->connect($dsn, undef, undef, { RaiseError => 1, AutoCommit => 0 }) or die "Cannot connect to $database: " . DBI->errstr;

# 打印成功连接的消息
print "Connected to $database successfully.\n";

# 关闭数据库连接
$dbh->disconnect;

在这个案例中，我们连接到一个SQLite数据库。首先，我们指定了数据库驱动和数据库的路径。然后，我们创建了一个连接字符串$dsn。使用DBI->connect函数，我们尝试建立与数据库的连接。如果连接成功，我们打印一条成功消息；如果连接失败，我们捕获异常并打印错误消息。

8.3 数据库操作实战案例

一旦连接到数据库，就可以使用DBI提供的接口执行SQL语句，进行数据的增、删、改、查操作。

案例17：数据库操作实战案例

#!/usr/bin/perl
# db_operations.pl

use DBI;

# 数据库驱动和数据库名
my $driver = 'SQLite';
my $database = '/path/to/database.db';

# 数据库连接字符串
my $dsn = "dbi:$driver:dbname=$database";

# 连接数据库
my $dbh = DBI->connect($dsn, undef, undef, { RaiseError => 1, AutoCommit => 0 }) or die "Cannot connect to $database: " . DBI->errstr;

# 准备SQL语句
my $sth = $dbh->prepare("INSERT INTO users (username, email) VALUES (?, ?)");

# 绑定参数
$sth->bind_param(1, 'JohnDoe');
$sth->bind_param(2, 'john.doe@example.com');

# 执行SQL语句
$sth->execute or die $sth->errstr;

# 提交事务
$dbh->commit;

# 关闭语句handle
$sth->finish;

# 关闭数据库连接
$dbh->disconnect;

在这个案例中，我们向SQLite数据库中的users表插入了一条新记录。我们首先准备了一个SQL语句，然后使用bind_param方法绑定了输入参数。接着，我们执行了SQL语句，并提交了事务。最后，我们关闭了语句handle和数据库连接。

九、Perl在生物信息学中的应用

在这里插入图片描述

9.1 生物信息学背景简介

生物信息学是一个跨学科领域，它结合了生物学、计算机科学和信息技术，用于理解生物数据。随着基因测序技术的发展和生物大数据的兴起，生物信息学变得尤为重要。它用于基因序列分析、结构生物学、系统生物学、进化生物学等多个领域。

9.2 Perl在生物信息学领域的应用案例

Perl在生物信息学中非常受欢迎，因为它强大的文本处理能力、跨平台兼容性和丰富的库支持。以下是一些Perl在生物信息学领域的应用案例。

案例18：使用Perl进行基因序列分析

#!/usr/bin/perl
# bioinfo_seq_analysis.pl

use strict;
use warnings;
use Bio::SeqIO;

# 基因序列文件路径
my $fasta_file = '/path/to/sequence.fasta';

# 创建一个SeqIO对象，指定格式为FASTA
my $seq_io = Bio::SeqIO->new(-file => $fasta_file, -format => 'fasta');

# 遍历序列文件中的每个序列
while (my $seq = $seq_io->next_seq()) {
    # 获取序列ID
    my $id = $seq->id;
    
    # 获取序列描述
    my $desc = $seq->desc;
    
    # 获取序列字符串
    my $seq_str = $seq->seq;
    
    # 打印序列信息
    print "Sequence ID: $id\n";
    print "Description: $desc\n";
    print "Sequence: $seq_str\n";
}

# 关闭SeqIO对象
$seq_io->close();

在这个案例中，我们使用Perl的Bio::SeqIO模块来处理FASTA格式的基因序列文件。我们创建了一个SeqIO对象，指定文件路径和格式。然后，我们遍历文件中的每个序列，打印出它们的ID、描述和序列字符串。

案例19：使用Perl进行BLAST分析

#!/usr/bin/perl
# bioinfo_blast_analysis.pl

use strict;
use warnings;
use Bio::SearchIO;

# BLAST输出文件路径
my $blast_file = '/path/to/blast.out';

# 创建一个SearchIO对象，指定格式为BLAST
my $search_io = Bio::SearchIO->new(-file => $blast_file, -format => 'blastp');

# 遍历BLAST输出中的每个查询
while (my $result = $search_io->next_result()) {
    # 遍历查询中的每个hit
    while (my $hit = $result->next_hit()) {
        # 获取hit的描述
        my $description = $hit->description;
        
        # 获取hit的分数
        my $score = $hit->score;
        
        # 打印hit的信息
        print "Description: $description\n";
        print "Score: $score\n";
    }
}

# 关闭SearchIO对象
$search_io->close();

在这个案例中，我们使用Perl的Bio::SearchIO模块来处理BLAST输出文件。我们创建了一个SearchIO对象，指定文件路径和格式。然后，我们遍历BLAST输出中的每个查询和hit，打印出它们的描述和分数。

十、Perl实战案例与进阶技巧

10.1 实战案例分析

在本节中，我们将通过一些实际的案例来巩固Perl编程的知识，并学习一些进阶技巧。

案例20：Web爬虫

#!/usr/bin/perl
# web_crawler.pl

use strict;
use warnings;
use LWP::Simple;

# 设置要爬取的网站根目录
my $root_url = 'http://example.com';

# 创建一个递归函数来爬取所有链接
sub crawl {
    my ($url) = @_;
    
    # 获取网页内容
    my $content = get($url);
    
    if ($content) {
        print "Crawled $url\n";
        
        # 解析网页内容，获取所有链接
        my @links = extract_links($content);
        
        foreach my $link (@links) {
            if ($link =~ /^http/) {
                crawl($link);
            }
        }
    }
}

# 提取网页中的所有链接
sub extract_links {
    my ($content) = @_;
    
    # 使用正则表达式匹配所有链接
    my @links = $content =~ /<a\s+.*?href=["'](.*?)["']/g;
    
    return @links;
}

# 开始爬取网站
crawl($root_url);