ref="/tag/2034/" style="color:#EB6E00;font-weight:bold;">Perl语言能做什么
提到Perl，很多人第一反应是“这语言还活着吗？”其实，Perl虽然不像Python那样天天上热搜，但在不少实际场景里，它依然干得挺起劲。
Perl最初是为文本处理而生的，特别擅长“扒拉日志”“改配置文件”“批量重命名”这类琐碎但高频的任务。比如你有一堆服务器日志要分析，想找出访问量最高的IP，用Perl几行代码就能搞定。
open LOG, "access.log";
while (<LOG>) {
if (/^([\d.]+) - -/) {
$count{$1}++;
}
}
foreach (sort { $count{$b} <=> $count{$a} } keys %count) {
print "$_: $count{$_}\n";
last; # 打印访问最多的IP
}
这段代码读取日志，提取IP并统计次数，简单直接。系统管理员经常拿Perl写这种“小脚本救急”，不用编译，写完就跑。
做网站后端？也可以
早年CGI编程的黄金时代，Perl几乎是标配。现在虽然被PHP、Python、Node.js盖过了风头，但一些老系统的后台仍然运行着Perl写的CGI程序。如果你在维护一个十年前的老项目，说不定天天都在和.pl文件打交道。
当然，也能用现代框架如Dancer或Mojolicious写Web应用。比如用Mojolicious快速搭个API：
use Mojolicious::Lite;
group {
get "/hello" => sub {
my $c = shift;
$c->render(json => {msg => "Hello from Perl!"});
};
};
app->start;
启动后访问 /hello 就能拿到JSON响应，适合做轻量级服务。
数据清洗和自动化任务
在科研或运维中，常需要把一种格式的数据转换成另一种。比如把CSV转成Excel，或者从一堆HTML里抽电话号码。Perl正则表达式强大到“有点吓人”，匹配复杂模式轻轻松松。
举个例子：你收到一份客户反馈邮件列表，每封邮件都夹杂着电话号码，想统一提取出来：
while (<>) {
while (/\b(\d{3}-\d{4}-?\d{4}|\d{11})\b/g) {
print "Found: $1\n";
}
}
这一行行扫过去，所有手机号、固话都能揪出来，再导出成表格，省下手动复制粘贴的功夫。
很多公司内部的自动化流程，比如定时备份、监控磁盘空间、发送提醒邮件，也常用Perl写。它和shell脚本配合默契，既能调系统命令，又能处理复杂逻辑。
生物信息学里的隐形主力
在生物信息学领域，Perl至今仍有不少拥趸。早期大量基因序列分析工具是用Perl写的，处理FASTA、GenBank这类文本格式得心应手。虽然现在R和Python更流行，但老实验室的流水线里，可能还跑着十几年前的Perl脚本。
比如读一个FASTA文件，统计每个序列长度：
$/ = ">";
<>; # skip first empty
while (<>) {
chomp;
my ($header, @seq) = split /\n/;
my $seq = join "", @seq;
print "$header " . length($seq) . "\n";
}
这种任务对Perl来说就像吃饭喝水一样自然。
说到底，Perl不是为了“炫技”而存在，而是为了解决具体问题。它不讲究语法美感，但实用性强，上手快，适合写“一次性脚本”或“长期服役的小工具”。如果你经常和文本、日志、系统打交道，Perl值得了解一下。