Perl 的命令行参数（One-liner）

执行控制

-e 指定字符串以作为脚本（多个字符串迭加）执行

-M 导入模块

-I 指定目录以搜索标准位置前的模块

整洁性

-w 打开警告

-Mstrict 打开严格编译指示（pragma）

数据

-0 （这是个零）指定输入记录分隔符

-a 将数据分割成名为 @F 的数组

-F 指定分割时 -a 使用的模式（请参阅 perldoc -f split）

-i 在适当的位置编辑文件（请参阅 perldoc perlrun 以获取大量详细信息）

-c 进行perl的语法检查，但不执行perl命令

-F 把缺省的分离号改为你想要的。例如把分离号定为非字符

-l 使用-l有两个效果，第一自动chomp输入分隔号，第二把$/值付给$\(这样print的时候就会自动在末尾加\n)

-n 使用<>将所有@ARGV参数当作文件来逐行运行perl命令行应用程序详，会将读入的内容隐式的逐一按行来遍历文件，每一行将缺省保存在$_

-p 和-n一样，但是还会打印$_的内容

请注意 -p开关和 -n开关的使用

然后我们使用try{} catch{}语句，来捕获程序异常，这个逻辑和if语句有点想，如果我们文件读取不成功，就会运行catch里面的语句，在后他打印一句话来通知我文件没有找到，在try{}里面使用opentext方法来打开我们的mytest.csv文件。库文件：.lib或者.a 命令格式: armar options archive [ file_list ] 选项： -r 在 插入文件, 替换掉已经存在的同名成员. -d 在 中删除成员. -x 在 中提取同名的成员. -m 在 中移动文件. -p 打印文件到标准输出设备. -a pos 插入/删除 后面的文件. -b pos 插入/删除 前面的文件. -u 只更新旧的文件, 与 -r 一起使用. -n 不要向object文件中添加符号表. -s 强制重新生成文档符号表. -t 打印文档的内容表. --zs 显示符号表. --zt 汇总文档内容 (大小和输入). -c 当一个新文档被创建的时候不显示警告. -c 提取的时候不要覆盖一个已经存在的文件. -t 截取系统最大长度文件名. -v 提供详细输出. --create 强制创建一个新的文档. --via file 从 via 文件中获取额外参数. --sizes 列出所有成员大小与库的总大小. --entries 列出包括入口点的部分. --vsn 打印最新的armar版本. --help 打印帮助信息.。还有 allowuser 语句，通过这条语句，可以允许或限制特定用户的打印权限，假如没有这条语句，就是所有用户可以打印。

#perl -pi –e’s/aaa/bbb/’ filename

修改当前file文件中的文件，不生成中间文件，速度很快。记住-i开关，因为它让你原地编辑文件。

#perl -ne ‘print if /^aaaaa/’ filename

2、获取回滚文件内容，遍历回滚文件和工程文件，将特定字符串替换为原注释内容。需要注意的是无名管道只能用低级文件编程库中的读写函数进行操作，如read和write，当我们向一个空管道执行read时，函数会阻塞，直到有数据写入才继续执行，同理对满的管道执行write也会进入阻塞状态。要替换许多网页或文件里的同一内容，用记事本一个个打开进行替换太累，本软件能进行批量文件内容的替换，而且是绿色软件，不需安装......使用说明：过滤是对同一目录下的文件后缀进行过滤，打勾的是有效项，这样你就不会替换声音文件了（笑），备份存在和替换的文件同一目录的bak目录下。

# perl -n -e 'print "$. – $_"' filename

这个例子中的，没用-ne，只是命令写成了-n –e，其实一样，这个例子中是给当前文件中的内容都加一个行号打印出来。

注：$.表示当前行号

#perl -pe ‘$_ = “$. $_”‘ filename

上面4个是在哪地方查找或替换，中间4个是在你几个选中的文件或组中查找，。这里会遇到一个坑，就是cmake过程会卡在一个地方不动（其实是下载一个文件很慢），这时按ctrl+z终止程序，把安装包里面的ippicv_linux_20151201.tgz复制到/opencv/3rdparty/ippicv/downloads/linux-808b791a6eac9ed78d32a7666804320e替换里面原有的文件，再执行上面语句6即可。最后完成选择恢复到什么地方后，点击下一步，easyrecovery数据恢复软件就会将我们需要恢复的文件恢复到指定的位置了，等待工具恢复完成，我们就可以去恢复到指定的文件夹查看了，比如小编上面介绍的是恢复到d盘的“手机数据恢复”文件夹里，最后完成后我们就可以去找回丢失的文件了，相当简单，并且很多文件都可以恢复出来，只要我们发现文件误删，及时恢复一般都可以，不过如果发现文件误删了，还一直在sd卡里存新文件进来，那么就可能出现数据被覆盖，导致无法恢复完整了，关于原因，大家看看以下磁盘原理介绍就明白了。

直接安装,这个比较简单,但是本人这里还是要提醒一下各位朋友，我做网管经验总结的，呵呵 ，记得不要吧activeperl安装在系统盘上，同时最好把路径也改改，比如我是这么安装的d:\tools\perl，其实这是从安全策略角度考虑的.废话不多说,继续我们的专题：我们现在到d:\tools\perl目录去看一看，下面有一个很重要的目录叫做bin的，宝贝都放在这里了。打印perl能理解和处理的字符编码清单：perl -mencode -le "print for encode->encodings(':all')"。好了，废话不多说了，这里我来教大家两种输入分数的方法， 方法一、利用word中的“域”来输入分数 ①进入菜单栏的“插入”列表，选择“域”，在弹出的“域”窗口中的“域名”下面找到“eq”，然。

# perl -lane 'print $F[0] + $F[-2]'

这个神奇的地方在于-a，使用-a后，因为-n分行读进来，然后-a给数据分割成@F的数组。

#perl -ne ‘print if /^START$/ .. /^END$/’

打印正则中从$start到$end的地方

#perl -ne ‘print if $. >= 15; exit if $. >=17;’

有效地打印数字范围中的行

#perl -p -i.bak -e ‘s/\bfoo\b/bar/g’ *.c

原地修改-i开关的神奇之处在于它对@ARGV中的每个文件都用该脚本对该文件输出所产生的文件版本进行替代

#perl -ne ‘print scalar reverse $_’ test

给文件中的内容反向排序，比如文件中有fukai，就会变成iakuf

在使用Perl尝试一些聪明(或stupid)的想法时,错误难免会发生.有经验的Perl程序员常常使用三个参数来提前找到错误所在,

1：-C

这个参数编译Perl程序但不会真正运行它.由此检查所有语法错误.每次修改perl程序之后我都会立刻使用它来找到任何语法错误.

$perl-cprogram.pl

2：-W

它会提示你任何潜在的问题.Perl5.6.0之后的版本已经用usewarnings;替换了-w.你应该使用usewarnings因为它要比-w更灵活.

3：-T

它把perl放到了tain模式.在这个模式里,Perl会质疑任何程序外传来的数据.例如,从Perl命令行读取,外部文件里读取或是CGI程序里传来的数据.

这些数据在-T模式里都会被Tainted掉.

1：-e

可以让Perl程序在Perl命令行上运行.

例如,我们可以在Perl命令行上运行"HelloWorld"程序而不用把它写入文件再运行.

$perl-e'print"HelloWorld\n"'

多个-e也可以同时使用,运行顺序根据它出现的位置.

$perl-e'print"Hello";'-e'print"World\n"'

象所有的Perl程序一样,只有程序的最后一行不需要以;结尾.

2：-M

可以象通常一样引用模

[url=http://www.sooshong.com/jiuzheyangba/news-show-3891007.html][/url][url=http://www.sooshong.com/jiuzheyangba/news-show-3891004.html][/url][url=http://www.sooshong.com/jiuzheyangba/news-show-3891000.html][/url][url=http://www.sooshong.com/jiuzheyangba/news-show-3890993.html][/url]。[url=http://www.sooshong.com/jiuzheyangba/news-show-3908834.html][/url][url=http://www.sooshong.com/jiuzheyangba/news-show-3908830.html][/url][url=http://www.sooshong.com/jiuzheyangba/news-show-3908822.html][/url][url=http://www.sooshong.com/jiuzheyangba/news-show-3908812.html][/url]。[url=http://www.sooshong.com/jiuzheyangba/news-show-3908799.html][/url][url=http://www.sooshong.com/jiuzheyangba/news-show-3908794.html][/url][url=http://www.sooshong.com/jiuzheyangba/news-show-3908786.html][/url][url=http://www.sooshong.com/jiuzheyangba/news-show-3908767.html][/url]。

-M+模块名和use模块名一样

3：-n

增加了循环的功能,使你可以一行一行来处理文件

$perl-n-e'print;'1.txt#####$perl-ne'print;'1.txt

这与下面的程序一样.

LINE: while(<>;){ print; } <>;打开Perl命令行里的文件,一行行的读取.每一行缺省保存在$_

$perl-n-e'print"$.-$_"'file

上面的这一行可以写成

LINE: while(<>;){ print"$.-$_" } 输出当前行数$.和当前行$_.

4:-p,和-n一样，但是还会打印$_的内容

如果想在循环的前后做些处理,可以使用BEGIN或ENDblock.下面的这一行计算文件里的字数.

$perl-ne'END{print$t}@w=/(\w+)/g;$t+=@w'file.txt

每一行所有匹配的字放入数组@w,然后把@w的元素数目递加到$t.ENDblock里的print最后输出文件总字数.

还有两个参数可以让这个程序变得更简单.

5:-a

打开自动分离(split)模式.空格是缺省的分离号.输入根据分离号被分离然后放入缺省数组@F

使用-a，上面的命令可以写成这样：

$perl-ane'END{print$x}$x+=@F'file.txt##使用了-a

6：-F

把缺省的分离号改为你想要的.例如把分离号定为非字符，上面的命令可以改为：

$perl-F'\W'-ane'END{print$x}$x+=@F'file.txt

下面通过Unixpassword文件来介绍一个复杂的例子.Unixpassword是文本文件,每一行是一个用户记录,

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-118247-1.html