perl命令是perl语言解释器，负责解释执行perl语言程序

发布时间：2023-09-25 16:10:57 所属栏目：Linux 来源：

导读：Linux常用命令perl命令是perl语言解释器，负责解释执行perl语言程序，下面为大家分享一下Linux常用命令perl命令具体使用方法。

命令格式

用法：perl [选项] [参数]

常用选项

-o 以八进制数形式指定

Linux常用命令perl命令是perl语言解释器，负责解释执行perl语言程序，下面为大家分享一下Linux常用命令perl命令具体使用方法。

命令格式

用法：perl [选项] [参数]

常用选项

-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程序

[deng@localhost tmp]$ perl test.sh

hello world

[deng@localhost tmp]$

其它用法

# 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"'   #简易计算器

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!