Perl脚本学习指南：零基础入门到实战技巧

为什么现在还要学ref="/tag/2034/" style="color:#2B406D;font-weight:bold;">Perl？

很多人以为Perl已经过时了，其实不然。在系统管理、日志分析、文本处理这些领域，Perl依然很能打。比如你每天要从一堆服务器日志里提取错误信息，用几行Perl脚本就能搞定，比手动翻文件快多了。

它不像Python那样铺天盖地，但在某些老项目和运维场景中，Perl还是“隐形主力”。学会它，等于多了一把趁手的工具。

安装与环境准备

大多数Linux和macOS系统自带Perl，打开终端输入 perl -v 就能查看版本。Windows用户可以下载Strawberry Perl，安装完就能直接写脚本。

写Perl不一定要复杂的IDE，一个文本编辑器加命令行就够了。比如用VS Code写完保存为 .pl 文件，然后在终端运行 perl hello.pl。

第一个Perl脚本

来个经典的“你好”：

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

print "Hello, 运维小张！\n";

第一行是shebang，告诉系统用Perl解释器运行这个文件。加上 use strict 和 use warnings 能帮你早点发现拼写错误和潜在问题，就像开车系安全带。

变量与数据结构

Perl的变量很简单，$ 表示标量，@ 表示数组，% 表示哈希（也就是键值对）。

my $name = "小李";
my @fruits = ("苹果", "香蕉", "橙子");
my %scores = ("语文" => 85, "数学" => 92);

print "学生：$name\n";
print "最爱的水果是：$fruits[1]\n";
print "数学成绩：$scores{"数学"}\n";

注意 my 是用来声明变量的，避免全局污染。这点写惯了JavaScript的人可能需要适应一下。

正则表达式是Perl的灵魂

Perl最早把正则表达式玩出花来。比如你要从一段日志里找出IP地址：

my $log = "访问来自 192.168.1.100，时间 2024-03-20";
if ($log =~ /(\d+\.\d+\.\d+\.\d+)/) {
    print "抓到IP：$1\n";
}

这里的 =~ 是匹配操作符，括号捕获的内容会存到 $1、$2 等变量里。这种写法在处理日志、配置文件时特别顺手。

文件操作实战

假设你每周都要统计销售数据文件里的总金额，Perl几行就能读文件并累加：

open(my $fh, '<', 'sales.txt') or die "无法打开文件: $!";
my $total = 0;
while (my $line = <$fh>) {
    chomp $line;
    if ($line =~ /金额:(\d+)/) {
        $total += $1;
    }
}
close($fh);
print "本周总销售额：$total 元\n";

open 函数打开文件，$! 存的是系统错误信息，die 会终止程序并报错。chomp 是去掉换行符，很常用。

模块让Perl更强大

别以为Perl只能靠自己。CPAN是它的宝藏库，有成千上万的模块。比如想发邮件通知，可以用 Email::Sender；处理JSON数据，就用 JSON::XS。

安装模块可以用cpan命令，或者更方便的cpanm。比如装个日期处理模块：

cpanm DateTime

然后在脚本里 use 就能用了。模块化让你不用重复造轮子。

写脚本的小建议

刚开始写容易把所有代码堆在一起。建议把功能拆成小块，比如日志分析脚本，可以把“读文件”“解析行”“汇总结果”分开写成子程序。

sub parse_line {
    my ($line) = @_;
    if ($line =~ /ERROR/) {
        return 1;
    }
    return 0;
}

子程序用 sub 定义，参数通过 @_ 获取。这样代码更清晰，也方便测试。

学Perl不用追求一下子全懂。先搞定变量、循环、正则、文件操作这四件套，就能解决日常80%的自动化任务。剩下的边用边查，慢慢就熟了。

Perl脚本学习指南：从零开始掌握实用编程技巧