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
微服务框架
日志
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
DNS
eBPF
GoZero
Gost
gopsutil
HIDS
ELKEID
XDP
TC