perl 替换

1
2
3
4
5
6
7

-a    自动分隔模式，用空格分隔$_并保存到@F中。相当于@F = split ”。分隔符可以使用-F参数指定
-F    指定-a的分隔符，可以使用正则表达式
-e    执行指定的脚本。
-i<扩展名>   原地替换文件，并将旧文件用指定的扩展名备份。不指定扩展名则不备份。
-l    对输入内容自动chomp，对输出内容自动添加换行
-n    自动循环，相当于 while(<>) { 脚本; }
-p    自动循环+自动输出，相当于 while(<>) { 脚本; print; }

例子：

1
2
3
4
5
6
7
8

perl -p -i.bak -e 's/\bfoo\b/bar/g' *.c
将所有C程序中的foo替换成bar，旧文件备份成.bak

perl -p -i -e "s/shan/hua/g" ./lishan.txt ./lishan.txt.bak 
将当前文件夹下lishan.txt和lishan.txt.bak中的“shan”都替换为“hua”

perl -i.bak -pe 's/(\d+)/ 1 + $1 /ge' file1 file2 
将每个文件中出现的数值都加一

后面的文件名也可以使用通配符。