处理日志文件时，经常会遇到成千上万行的数据，手动翻找几乎不可能。比如你想从Web服务器日志中提取所有404错误的访问记录，用ref="/tag/2/" style="color:#E3A3CF;font-weight:bold;">Perl正则一行命令就能搞定。
perl -ne 'print if /\s404\s/' access.log这条命令会逐行读取access.log，只要发现前后有空格、中间是404的状态码就输出。简单直接，省去打开编辑器、加载大文件的麻烦。
批量重命名文件
下载了一堆图片，名字全是IMG_001.jpg到IMG_999.jpg，想改成product_001.jpg这样的格式，用Perl配合正则重命名非常顺手。
perl -e 'rename($_, s/IMG_(\d+)/product_$1/r) for @ARGV' *.jpg这里用到了s///r结构，表示替换后返回新字符串，不会改动原变量。括号捕获数字部分，在替换时用$1引用，避免一个个手动改名。
清理不规范的CSV数据
拿到一份用户数据表，电话号码有的带区号括号，有的有空格或短横线，格式乱七八糟。可以用正则统一提取数字部分。
my $clean = $phone =~ s/[^0-9]//gr;这个表达式把非数字字符全删掉，不管原来是(010) 1234-5678还是010-12345678，最后都变成01012345678，方便后续处理。
提取网页中的邮箱地址
爬取一些公开页面时，想快速抓出页面里的联系邮箱，Perl正则写起来比Python还简洁。
while ($html =~ /(\w+[.-]?\w+@\w+[.-]\w+)/g) {
print "找到邮箱：$1\n";
}虽然这不是最严谨的邮箱校验，但在实际场景中够用。比如能正确匹配support@example.com、admin.service@sub.domain.com这类常见格式。
自动修改配置文件
部署多个环境时，数据库连接串需要替换。比如把testdb替换成proddb，但不能影响其他包含db的字段。
perl -i -pe 's/testdb/proddb/g' config.ini加上-i参数会直接修改原文件，适合自动化脚本使用。如果担心出错，可以加个.bak备份原文件。
这些例子都是工作中随手能用上的技巧，不需要精通整个Perl语言，只要掌握基本正则和几条常用语法，就能大幅提升效率。