首页 > PERL/PHP技术 > [perl]命令行命令备忘

[perl]命令行命令备忘

2014年4月29日 发表评论 阅读评论

岁数大了,脑子不好用了,好多命令不经常用,容易忘。好记性不如烂笔头,记录备忘下。
一些引用:

http://www.ibm.com/developerworks/cn/linux/sdk/perl/l-p101/index.html

http://www.ibm.com/developerworks/cn/linux/sdk/perl/l-p102/index.html

具体使用

$ perl -MData::Dumper -e'print Dumper \@ARGV' a b -w
$VAR1 = [
          'a',
          'b',
          '-w'
        ];

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

-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 参数当作文件来逐行运行,会将读入的内容隐式的逐一按行来遍历文件.
每一行将缺省保存在 $_ -p 和 -n 一样,但是还会打印 $_ 的内容 请注意 -p 开关和 -n 开关的使用.
当您想显式打印数据时,使用 -n 开关. -p 开关隐式地将 print $_ 语句插入到 -n 开关所产生的循环中.因此, -p 开关更适用于对文件进行的 完全处理,而 -n 开关更适用于 选择性文件处理,这样的处理只需打印特定数据. 


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

perl -pi -e's/aaa/bbb/' filename  

象grep一样过滤文件中需要的内容
这个地方,使用了-n,所以一次是做一行的操作,直到整个文件读完.另外,在管道时,-n也会一样,来遍历管道送过来的内容.

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

显示文件行号
这个例子中的,没用-ne,只是命令写成了-n -e,其实一样,这个例子中,是给当前文件中的内容都加一个行号打印出来.注:$.表示当前行号

perl -pe '$_ = "$.  $_"' filename 

分割字符域
大家还记得awk分割域(awk ‘{i = NF – 1; print $1 + $i}’)啊,是不是很方便,下面我们来看看perl
这个神奇的地方在于-a,使用-a后.因为-n分行读进来,然后-a给数据分割成@F的数组.

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

查找一个区间的内容
打印正则中从$start到$end的地方,这个别的程序相当不好操作

perl -ne 'print if /^START$/ .. /^END$/' 

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

perl -ne 'print if $. >= 15; exit if $. >= 17;'

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

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

给文件中的内容反向排序,比如文件中有123,就会变成321

perl -ne 'print scalar reverse $_' test 

生成任意位的随机字符,例子中是 4 位

perl -le 'print join "",map {("a" .. "z",0 .. 9)[rand 36]} ( 1.. 4)'

生成随机的 IP

	
perl -le '$,=".";print map int rand 256,1..4'
分类: PERL/PHP技术 标签:
  1. 本文目前尚无任何评论.
  1. 本文目前尚无任何 trackbacks 和 pingbacks.