Perl学习教程之单行命令详解

Perl 单行命令（One-Liner）一直是命令行文本处理的利器，尤其适合那些临时起意、用完即弃的小任务。不少人在日常工作中可能更习惯用 sed、awk 或 grep，但 Perl 的正则能力、内置模块和极简的语法，往往能让一行命令干完别人好几行脚本的活。下面就来拆解一下 Perl One-Liner 的核心参数和几个典型场景，保证看完就能上手。

与 One-Liner 相关的 Perl 参数

• -a：自动分隔模式，用空格分隔输入行并存入数组 @F，等价于 @F = split //, $_
• -F：指定 -a 的分隔符，默认是空白
• -l：对输入自动 chomp，对输出自动加换行符
• -n：相当于 while(<>)，逐行读取但不自动输出
• -e：执行后面的 Perl 脚本
• -p：自动循环 + 输出，即 while(<>){命令; print;}

记住这几个参数，基本就能开始写 Perl One-Liner 了。其实还有一个更完整的参数图谱，不过上面几个是日常使用频率最高的。

一张图看懂完整参数

从例子中理解 Perl One-Liner

理论说再多不如直接看例子，下面几个场景基本覆盖了常见的需求。

1. 基本格式

perl -参数 '命令' 输入文件

2. 核心参数组合

-e 是必须写的参数，没有它就没法执行命令。而 -pe 组合最常见的用途是：读取文件每行，按命令处理后再输出。比如把 1.txt 中的 aaa 替换为 AAA：

perl -pe 's/aaa/AAA/g' 1.txt

3. 自动处理换行

-l 参数几乎可以和 -n 绑定使用，代替 while(<>){chomp;} 这种常见写法，省去手动去除换行的麻烦。

4. 处理 Tab 分隔文件

如果你想对 Tab 分隔的每一行做处理，-alne 组合堪称标配。比如以下传统写法：

while(<>){chomp; @F=split /s+/,$_; print "$F[0]n"}

用一行就能搞定：

perl -alne 'print $F[0]'

5. 变量无需声明

Perl 单行命令里的变量不需要预先声明。比如打印出所有非空行，并在每行前面加上行号：

perl -ne 'print ++$a." $_" if /./'

6. 模仿 grep -c

统计匹配正则表达式的行数：

perl -lne '$a++ if /regex/; END {print $a+0}'

7. 调用 Perl 模块

Perl 的模块在 One-Liner 里也能直接用。比如用 List::Util 中的 sum 函数求每行数字之和：

perl -MList::Util=sum -alne 'print sum @F'

8. 像 awk 一样使用 END

统计整个文件中的单词总数：

perl -alne '$t += @F; END { print $t}'

9. 结合 map 函数

统计匹配某个正则表达式的单词总数：

perl -alne 'map { /regex/ && $t++ } @F; END { print $t }'

10. 简洁打印匹配行

输出所有匹配正则的行：

perl -ne '/regex/ && print'

11. 灵活使用正则

比如只打印全数字组成的行：

perl -ne 'print if /^d+$/'

这些例子充分展示了 Perl One-Liner 的简洁与强大。对于平时需要频繁处理文本的人来说，掌握它确实能节省大量重复编写脚本的时间，尤其是那些只跑一两次就不再用的临时任务。即使在 Windows 系统下，也能通过 Git Bash 等工具模拟 Unix 环境，配合 Perl 单行命令来干活。

总结

Perl One-Liner 的精髓在于用最少的字符完成最直接的操作。只要熟悉那几个核心参数，再结合 Perl 强大的正则和模块，一行命令的威力远超你的想象。值得花点时间练习，多用几次就会上瘾。