很实用的Perl单行命令.doc

很实用的Perl单行命令 2010-09-14 06:11:01| 分类： Perl & bioperl |字号 订阅 替换将所有C程序中的foo替换成bar，旧文件备份成.bakperl -p -i.bak -e s/bfoob/bar/g *.c很强大的功能，特别是在大程序中做重构。记得只有在UltraEdit用过。 如果你不想备份，就直接写成 perl -p -i -e 或者更简单 perl -pie， 恩，pie这个单词不错将每个文件中出现的数值都加一perl -i.bak -pe s/(d+)/ 1 + $1 /ge file1 file2 .将换行符rn替换成nperl -pie s/rn/n/g file同dos2unix命令。将换行符n替换成rnperl -pie s/n/rn/g file同unix2dos命令。取出文件的一部分显示字段0-4和字段6，字段的分隔符是空格perl -lane print F0.4 $F6 file很好很强大，同 awk print $1, $2, $3, $4, $5, $7。参数名称lane也很好记。如果字段分隔符不是空格而是冒号，则用perl -F: -lane print F0.4n /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 $F4 + $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 %xn,$_10进制转8进制： perl -ne printf %on,$_16进制转10进制：perl -ne print hex($_).n8进制转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 原地替换文件，并将旧文件用指定的扩展名备份。不指定