Perl学习教程之单行命令详解
Perl单行命令是命令行文本处理的利器,利用核心参数如-a、-F、-l、-n、-e、-p可快速完成替换、统计、模块调用等任务。正则能力与极简语法使一行命令替代多行脚本,尤其适合临时文本处理场景,掌握这些参数能大幅提升效率。
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 强大的正则和模块,一行命令的威力远超你的想象。值得花点时间练习,多用几次就会上瘾。


































