Perl 最初的设计者为拉里·沃尔（Larry Wall），他于1987年12月18日发表。Perl借取了C、sed、awk、shell scripting以及很多其他程序语言的特性。其中最重要的特性是它内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。简而言之，Perl像C一样强大，像awk、sed等脚本描述语言一样方便，被称之为"一种拥有各种语言功能的梦幻脚本语言"、"Unix 中的王牌工具"。 Perl 一般被称为"实用报表提取语言"（Practical Extraction and Report Language），你也可能看到"perl"，所有的字母都是小写的。一般，"Perl"，有大写的 P，是指语言本身，而"perl"，小写的 p，是指程序运行的解释器。
参数：
-o 以八进制数形式指定输入记录的分隔符(也保存在perl中的特殊变量$/中)
-a 当和-n或者-p一起使用时启动自动拆分模式.这种模式可以拆分输入的行,并把它们放置在名为@F的专门数组中
-c 使perl检查脚本的语法,然后退出
-C 使perl能够在目标系统中使用原始的宽字符API.
-d 在perl调试程序下运行脚本
-e 使用命令行,
-F 如果使用了-a,该参数可以用来指定所拆分的模式
-h 打印出所有选项的汇总
-i 指出被<>结构处理的文本
-I 使perl为模块搜索目录
-l 添加行结束处理,当和-n与-p开关一起使用,这个开关能自动把$/从输入数据中删除,并把$\(输出记录分隔符)设置为octnum,这样打印语句就可以使用该分隔符了.
-m[-]module 在执行脚本前,把指定模块包含在脚本中
-n 让perl在脚本中试用while(<>)循环
-p 让perl把下面循环添加到脚本中:
-P perl编译之前,通过C预设处理程序来运行自己的脚本
-s 在命令行中允许要进行开关解析
-S 让perl试用PATH环境变量来搜索脚本
-T 强制打开错误检查
-u 在编译了脚本后,导致perl清楚内核
-U 允许perl进行不安全的操作,如删除目录等
-v 打印出perl的版本及包的级别
-V:name 打印出指定的配置变量的汇总
-w 打印出警告信息
-W 无论no warnings或$^W的状态是什么,都启动警告信息
-x directory 通知perl脚本嵌入到消息中,文本不会被处理,知道第一行代码以#!开头并包含了字符"perl"
-X 无论use warnings或$^W的状态是什么,都禁止警告信息
– 可选, 表示使用的这些开关的结束位置
# perl -p -i.bak -e 's/\bfoo\b/bar/g' *.c #将所有C程序中的foo替换成bar，旧文件备份成.bak # perl -i.bak -pe 's/(\d+)/ 1 + $1 /ge' file1 file2 … #将每个文件中出现的数值都加一 # perl -pie 's/\r\n/\n/g' file #将换行符\r\n替换成\n # perl -pie 's/\n/\r\n/g' file #将换行符\n替换成\r\n # perl -lane 'print "@F[0..4] $F[6]"' file #显示字段0-4和字段6，字段的分隔符是空格 # perl -F: -lane 'print "@F[0..4]\n"' /etc/passwd #字段分隔符不是空格而是冒号 # perl -ne 'print if /^START$/ .. /^END$/' file #显示START和END之间的部分 # perl -ne 'print unless /^START$/ .. /^END$/' file #不显示START和END之间的部分 # perl -pe 'exit if $. > 50′ file #显示开头50行 # perl -ne 'print unless 1 .. 10′ file #不显示开头10行 # perl -ne 'print if 15 .. 17′ file #显示15行到17行 # perl -lne 'print substr($_, 0, 80) = ""' file #每行取前80个字符 # perl -lne 'print substr($_, 10) = ""' file #每行丢弃前10个字符 # perl -ne 'print if /comment/' duptext #查找comment字符串 # perl -ne 'print unless /comment/' duptext #查找不含comment字符串的行 # perl -ne 'print if /comment/ || /apple/' duptext #查找包含comment或apple的行 # perl -lane 'print $F[4] + $F[-2]' #计算字段4和倒数第二字段之和 # perl -e 'print sort <>' file #文件按行排序 # perl -00 -e 'print sort <>' file #文件按段落排序 # perl -0777 -e 'print sort <>' file1 file2 #多个文件按文件内容排序，并返回合并后的文件 # perl -e 'print reverse <>' file1 #文件按行反转 # perl -ne 'printf "%x\n",$_' #10进制转16进制 # perl -ne 'printf "%o\n",$_' #10进制转8进制 # perl -ne 'print hex($_)."\n"' #16进制转10进制 # perl -ne 'print oct($_)."\n"' #8进制转10进制 # perl -ne 'print eval($_)."\n"' #简易计算器
评论（0）
暂无评论