Perl 单行特技（One-Line）

0x00 前言

在日常处理文本时，Perl 的单行模式非常有用。本文介绍下强大的单行特技。

与 One-Line 相关的参数

-a 自动分隔模式，用空格分隔 $ 并保存在 @F 中，也就是 @F=split //, $ -F 指定 - a 的分隔符 -l 对输入的内容进行自动 chomp，对输出的内容自动加换行符 -n 相当于 while(<>) -e 执行命令，也就是脚本 -p 自动循环 + 输出，也就是 while(<>){命令（脚本）; print;}

0x01 Perl 单行选项

-e 开关允许我们在命令行中运行脚本

#简单的打印
perl -e 'print"hello\n"'
#取从 ls 中获得输入，找到文件大小的字段，计算所有文件大小的总和
ls -lAF|perl -e 'while (<>) { next if /^dt/; $sum += (split)[4] } print"$sum\n"'
#按行打印管道输入的结果
ls -lAF |perl -e 'while (<>){print $_}'
#过滤以 d 或 t 开头的行
ls -lAF | perl -e 'while (<>) { next if /^[dt]/; print $_; }'

-n 选项在你的程序中封装一个 while 循环，循环通过钻石操作符读取输入，把 $_ 设置为读取的内容

#如上面的
ls -lAF |perl -e 'while (<>){print $_}'
#可以改为
ls -lAF |perl -ne 'print $_'

-p 选项做同样的事，并且每次递归后输出 $_ 的值

ls -l | perl -pe 's/\S+ //'

-l 对输入的内容进行自动 chomp（去换行符），对输出的内容自动加换行符

0x02 处理文件的快捷操作

1、在多个文件中处理替换

perl -pi -e 's/test1/test2/g' file1 file2 file3

2、处理文件时匹配指定的行，然后进行替换

#把 file 文件中包含 hello 这行中的 test1 全部替换成 test2
perl -pi -e 's/test1/test2/g if /hello/' file
#把 file 文件中匹配到包含数字的行全部把 test2 替换成 test1
perl -pi -e 's/test1/test2/g if /\d/' file

3、文件的行去重（hash）

perl -ne 'print if $a{$_}++' file

4、打印行号

perl -ne 'print"$. $_"'
#使用 - p 的方式实现，修改默认的 $_变量
perl -pe '$_ ="$. $_"'

5、输出重复行，并且打印重复行的行号

perl -ne 'print"$. $_"if $a{$_}++' file

6、perl -pe 可用于读取文件每行，并按照给定的命令进行处理，最后输出

perl -pe 's/aaa/AAA/g' file

> 注意：使用 `-p` 选项比 `-n` 更为直观一些

7、perl -l 参数几乎可以跟 -n 搭配代替 perl 经常用的 while(<>){chomp;} 语法

8、重点! 如果需要处理 tab 分割的文件的每一行内容，那么 perl -alne 参数几乎可以说是必备的例如，

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

上面这段代码相当于 perl -alne 'print $F[0]'

9、其他一些例子

#输入数字的行，使用正则匹配
perl -ne 'print if /^\d+$/'

#perl 单行命令脚本里的变量都不需要预先声明，如想打印出每空行，并且每行以行数开头
perl -ne 'print ++$a." $_"if /./'

#perl 单行命令有时优于 sed/grep 等 shell 命令是由于其优秀的正则匹配，通常简单的匹配可以如：匹配上的行号，模仿 grep -c 的功能
perl -lne '$a++ if /regex/; END {print $a+0}'

#perl 单行命令可以使用 perl 的模块，如使用 sum 函数的模块
perl -MList::Util=sum -alne 'print sum @F'

#perl 也可以像 awk 一样使用 END 命令，如打印出文件中总单词个数
perl -alne '$t += @F; END {print $t}'

#perl 也可以使用 map{} 等函数，如打印出匹配上的单词的总个数
perl -alne 'map {/regex/ && $t++} @F; END { print $t }'

#perl 单行命令可以说是将 perl 的简洁用到了极致，如打印出匹配上的行：
perl -ne '/regex/ && print'

0x03 参考

转载请注明出处，本文采用 CC4.0 协议授权

FEATURED TAGS

Latex gRPC 负载均衡 OpenSSH Authentication Consul Etcd Kubernetes 性能优化 Python 分布式锁 WebConsole 后台开发 Golang OpenSource Nginx Vault 网络安全 Perl 分布式理论 Raft 正则表达式 Redis 分布式限流 go-redis 微服务反向代理 ReverseProxy Cache 缓存连接池 OpenTracing GOMAXPROCS GoMicro 微服务框架日志 zap Pool Kratos Hystrix 熔断并发 Pipeline 证书 Prometheus Metrics PromQL Breaker 定时器 Timer Timeout Kafka Xorm MySQL Fasthttp bytebufferpool 任务队列队列异步队列 GOIM Pprof errgroup consistent-hash Zinx 网络框架设计模式 HTTP Gateway Queue Docker 网关 Statefulset NFS Machinery Teleport Zero Trust Oxy 存储 Confd 热更新 OAuth SAML OpenID Openssl AES 微服务网关 IM KMS 安全数据结构 hashtable Sort Asynq 基数树 Radix Crontab 热重启系统编程 sarama Go-Zero RDP VNC 协程池 UDP hashmap 网络编程自适应技术环形队列 Ring Buffer Circular Buffer InnoDB timewheel GroupCache Jaeger GOSSIP CAP Bash websocket 事务 GC TLS singleflight 闭包 Helm network iptables MITM HTTPS Tap Tun 路由 wireguard gvisor Git NAT 协议栈 Envoy FRP DPI gopacket Cgroup Namespace DNS eBPF GoZero Gost Clash gopsutil HIDS ELKEID XDP TC Linux

FRIENDS

Apple Developer

神奇的胶水语言 Perl 文本处理