当先锋百科网

首页 1 2 3 4 5 6 7

使用perl命令可以扫描任意文本文件,从这些文本中提取信息优化的语言,根据这些信息打印报告。

命令语法:

prel[选项][程序文件][参数]

选项含义:选项含义

-W启用所有的警告

-a使用-n或-p自动分割模式

-c只进行语法检查

-d在调试器下运行程序

-V显示配置摘要

-w启用许多有用的警告

-U允许不安全的操作

-S寻找使用PATH环境变量的程序文件

-X禁用所有警告

-u语法分析程序后转储核心

-T启用污点检查

-t启用污点警告

-D设置调试标志,参数是一个位掩码或字母

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

-f不让$sitelib/sitecustomize.pl启动

-i编辑文件

-l启用行结束处理,指定行结束

-O指定记录分隔符

-n假设“while(<>){...}”围绕程序循环

例如:

只对sitelib/sitecustomize.pl文件进行语法检查。

[root@localhost ~]# perl -c sitelib/sitecustomize.pl

让Perl程序在命令行上运行,启用行结束处理

[root@localhost ~]# perl -le 'print"Hello Linux"'

Hello Linux

让Perl程序在命令行上运行。

[root@localhost ~]# perl -e 'print"Hello Worldn"'

Hello World

[root@localhost ~]# perl -MLWP::Simple -e 'getstore("http://192.168.0.2/","index.html")'

增加循环功能,可以一行一行地处理/root/oo文件。

[root@localhost ~]# perl -n -e'print;' /root/oo #####$ perl -ne 'print;' /root/oo

计算/root/oo文件中的字数。

[root@localhost ~]# perl -ne 'END { print $t } @w = /(w+)/g; $t += @w' /root/oo

4

在/root/oo文件中,如果第一列数据内容相同,将它的第二列数值相加。

[root@localhost ~]# perl -anle '$cnt{$F[0]}+=$F[1];END{print "$_t$cnt{$_}" for keys %cnt}' /root/oo

a 30

b 300

把/root/oo文件中所有的字符a替换为z.。

[root@localhost ~]# perl -i -pe 's/bab/z/g' /root/oo

[root@localhost ~]# cat /root/oo

z 10

z 20

b 100

b 200