Perl 命令行 

替换  

将所有C程序中的foo替换成bar,旧文件备份成.bak 

perl -p -i.bak -e ’s/\bfoo\b/bar/g’ *.c  很强大的功能,特别是在大程序中做重构。

记得只有在UltraEdit用过。 

如果你不想备份,就直接写成 perl -p -i -e 或者更简单 perl -pie, 恩,pie这个单词不错 

将每个文件中出现的数值都加一  

perl -i.bak -pe ’s/(\d+)/ 1 + $1 /ge’ file1 file2 …. 

将换行符\r\n替换成\n 

perl -pie ’s/\r\n/\n/g’ file 同dos2unix命令。 

将换行符\n替换成\r\n 

perl -pie ’s/\n/\r\n/g’ file  同unix2dos命令。

取出文件的一部分  显示字段0-4和字段6,字段的分隔符是空格 

perl -lane ‘print “@F*0..4+ $F*6+“‘ file  很好很强大,同 awk ‘print $1, $2, $3, $4, $5, $7′。

参数名称lane也很好记。 如果字段分隔符不是空格而是冒号,则用 perl -F: -lane ‘print “@F*0..4+\n”‘ /etc/passwd 

显示START和END之间的部分 

perl -ne ‘print if /^START$/ .. /^END$/’ file 恐怕这个操作只有sed才做得到了吧 

相反,不显示START和END之间的部分 

perl -ne ‘print unless /^START$/ .. /^END$/’ file 

显示开头50行:  perl -pe ‘exit if $. > 50′ file 同命令 head -n 50 

不显示开头10行:  perl -ne ‘print unless 1 .. 10′ file 

显示15行到17行:  perl -ne ‘print if 15 .. 17′ file 

每行取前80个字符:  perl -lne ‘print substr($_, 0, 80) = “”‘ file 

每行丢弃前10个字符:  perl -lne ‘print substr($_, 10) = “”‘ file 

搜索  查找comment字符串:  perl -ne ‘print if /comment/’ duptext 这个就是普通的grep命令了。 

查找不含comment字符串的行:  perl -ne ‘print unless /comment/’ duptext 反向的grep,即grep -v。 

查找包含comment或apple的行: 

perl -ne ‘print if /comment/ || /apple/’ duptext  相同的功能就要用到egrep了,语法比较复杂,我不会 


计算  

计算字段4和倒数第二字段之和: perl -lane ‘print $F*4+ + $F*-2+‘  要是用awk,就得写成 awk ‘{i=NF-1;print $5+$i}’ 

排序和反转 

文件按行排序:  perl -e ‘print sort <>’ file 相当于简单的sort命令。 

文件按段落排序:  perl -00 -e ‘print sort <>’ file  多个文件按文件内容排序,并返回合并后的文件: perl -0777 -e ‘print sort <>’ file1 file2 文件按行反转:  perl -e ‘print reverse <>’ file1  相应的命令有吗?有不过挺偏,tac(cat的反转) 

数值计算  

10进制转16进制: 

perl -ne ‘printf “%x\n”,$_’ 

10进制转8进制: 

perl -ne ‘printf “%o\n”,$_’

16进制转10进制:  

perl -ne ‘print hex($_).”\n”‘ 

8进制转10进制:  

perl -ne ‘print oct($_).”\n”‘ 

简易计算器。  

perl -ne ‘print eval($_).”\n”‘ 

其他  

启动交互式perl: 

perl -de 1  

查看包含路径的内容:

perl -le ‘print for @INC’  

备注  

与One-Liner相关的Perl命令行参数: 

-0<数字>  (用 8进制表示)指定记录分隔符($/变量),默认为换行 

-00  段落模式,即以连续换行为分隔符 

-0777  禁用分隔符,即将整个文件作为一个记录 

-a  自动分隔模式,用空格分隔$_并保存到@F中。相当于@F = split ”。分隔符可以使用-F参数指定 

-F 指定-a的分隔符,可以使用正则表达式 

-e  执行指定的脚本。 

-i<扩展名>  原地替换文件,并将旧文件用指定的扩展名备份。不指定扩展名则不备份。 

-l  对输入内容自动chomp,对输出内容自动添加换行 

-n  自动循环,相当于 while(<>) { 脚本; } 

-p  自动循环+自动输出,相当于 while(<>) { 脚本; print; }