Perl脚本学习指南｜知玩指南

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

很多人听说 Perl 都是老古董了，但其实在运维、日志分析、文本处理这些场景里，Perl 依然很能打。比如你每天要从一堆服务器日志里提取错误信息，写个 Python 脚本当然可以，但用 Perl 几行代码就能搞定，还不用装环境——很多 Linux 系统默认就带 Perl。

在“驱动工具”这个栏目里，我们更关注的是怎么快速解决问题，而不是追求技术潮流。Perl 就是那个你手边的万能螺丝刀，不显眼，但关键时刻特别顺手。

安装与运行：先跑起来再说

大多数 Unix-like 系统已经自带 Perl，打开终端输入 perl -v 看看版本就行。Windows 用户可以装 Strawberry Perl，下载安装后就能在命令行用 perl 命令了。

写个最简单的脚本试试：

#!/usr/bin/perl
print "Hello, 知玩指南！\n";

把上面内容存成 hello.pl，然后在终端执行 perl hello.pl，看到输出就说明环境没问题了。

变量和字符串处理：文本操作的核心

Perl 最强的地方就是处理文本。它有三种基本变量类型：标量（$）、数组（@）和哈希（%）。

#!/usr/bin/perl
my $name = "小明";
my @logs = ("error", "warning", "info");
my %status = ("running" => 1, "stopped" => 0);

print "用户 $name 正在查看日志级别：@logs\n";
print "运行状态码：$status{running}\n";

注意这里用了 my 来声明变量，这是现代 Perl 的好习惯，避免变量污染。

正则表达式：一行顶十行

你想从一段日志中找出所有 IP 地址？Perl 的正则直接给你答案。

#!/usr/bin/perl
my $log = "Failed login from 192.168.1.100 at 14:22:33";
if ($log =~ /(\d+\.\d+\.\d+\.\d+)/) {
    print "抓到可疑IP：$1\n";
}

这一招在分析 Nginx 或 Apache 日志时特别实用。配合循环读文件，几秒扫完上千行。

文件处理：让脚本真正干活

实际工作中，你总得读点配置或日志。下面是个读取文件并统计关键词出现次数的例子：

#!/usr/bin/perl
open(my $fh, '<', 'access.log') or die "无法打开文件: $!";
my %count;
while (my $line = <$fh>) {
    if ($line =~ /404/) {
        $count{404}++;
    }
}
close($fh);
print "404 错误共出现 $count{404} 次\n";

这段脚本虽然简单，但已经能用在真实场景里了。你可以把它定时跑在服务器上，自动汇总每日错误情况。

模块管理：别重复造轮子

Perl 有自己的包管理器 CPAN，就像 Python 的 pip。想发邮件、解析 JSON、连数据库，去 CPAN 找现成模块就行。

比如安装 JSON 模块：

cpan install JSON

然后在脚本里这样用：

use JSON qw(decode_json encode_json);
my $data = decode_json('{"user":"test"}');
print $data->{user};

有了模块加持，Perl 也能写出结构清晰、功能完整的工具脚本。

写个小工具练手：自动重命名日志文件

假设你每天收到一堆叫 log.txt 的文件，想按日期重命名。手动改太累，写个 Perl 脚本自动加时间戳：

#!/usr/bin/perl
use POSIX qw(strftime);

my $date = strftime "%Y%m%d", localtime;
my $new_name = "log_$date.txt";

rename "log.txt", $new_name or warn "重命名失败: $!";
print "已重命名为 $new_name\n";

把这个脚本加入系统计划任务，每天早上自动跑一次，省心又省力。

Perl 可能不是最潮的语言，但它解决实际问题的能力一点没过时。特别是在一些老旧系统或嵌入式环境中，Perl 往往是唯一可用的脚本工具。花点时间学一学，说不定哪天就能帮你少加半小时班。