Perl 有很多命令行参数. 通过它, 我们有机会写出更简单的程序. 在这篇文章里我们来了解一些常用的参数.
Safety Net Options
在使用 Perl 尝试一些聪明( 或 stupid) 的想法时, 错误难免会发生. 有经验的 Perl
程序员常常使用三个参数来提前找到错误所在,
-C 是第一个. 这个参数编译 Perl 程序但不会真正运行它. 由此检查所有语法错误. 每次修改 perl
程序之后我都会立刻使用它来找到任何语法错误.
-W 是第二个参数. 它会提示你任何潜在的问题. Perl 5.6.0 之后的版本已经用 use warnings; 替换了 -w .你应该使用
use warnings 因为它要比 -w 更灵活.
-T 是第三个参数. 它把 perl 放到了 tain 模式. 在这个模式里, Perl 会质疑任何程序外传来的数据. 例如,从命令行读取,
外部
文件里读取 或是 CGI 程序里传来的数据.
这些数据在 -T 模式里都会被 Tainted 掉.
Tainted 数据不可以被用来和外部交互. 例如 使用在 system 调用和用作 open 的文件名. perlsec
文档里有更多什么数据会被Tainted 掉的例子.
要想使用 Tainted 的数据就需要 untaint这个数据. untaint 是通过正则表达式来实现.这里我不会太多的讲述 taint
模式. 如果你要编写的程序 (例如 CGI 程序) 需要从从
用户那里接受不可知的输入, 我推荐使有 taint
模式
-d ,Perl Debugger , 在这里值得一提但我们无法顾及, 我推荐阅读文档 'perldoc perldebug' 或
Richard Foley 的 Perl Debugger Pocket Reference 一书.
Command-Line Programs
下面的几个 Perl 参数可以让短小的 Perl 程序运行在命令行. -e 可以让 Perl 程序在命令行上运行.例如, 我们可以在命令行上运行
"Hello World" 程序而不用把它写入文件再运行.
- $ perl -e 'print "Hello
World\n"'
多个 -e 也可以同时使用, 运行顺序根据它出现的位置.
- $ perl -e 'print "Hello
";' -e 'print "World\n"'
象所有的 Perl 程序一样, 只有程序的最后一行不需要以 ; 结尾.
虽然你也可以象通常一样引用模块, 但 -M 让它变得更容易.
- $ perl -MLWP::Simple -e
'print head ""'
-M模块名 和 use 模块名 一样. 如果不想引入模块的缺省值, 你可以使用 -m. -m模块名 和 use 模块名() 一样.
例如下面这个例子, 因为 head 函数是缺省引入,而使用 -m 时就不会, 结果是没有输出.
- $ perl -mLWP::Simple -e
'print head ""'
-m 和 -M 通过 = 来引入某个模块的特别函数.
- $ perl -MCGI=:standard
-e 'print header'
这里, CGI.pm 的 ":standard" 被引入, header 函数因此可以使用.要引入多个参数可以通过使用引号和逗号.
- $ perl
-MCGI='header,start_html' -e 'print header, start_html'
这里我们引入了 header 和 start_html 函数.
Implicit Loops
-n 和 -p 增加了循环的功能, 使你可以一行一行来处理文件.
- $ perl -n -e 'some code'
file1
这与下面的程序一样.
- LINE:
- while (<>;) {
- # your code goes here
- }
<>; 打开命令行里的文件,一行行的读取.每一行缺省保存在 $_
- $ perl -n -e 'print "$.
- $_"' file
上面的这一行可以写成
- LINE:
- while (<>;) {
- print "$. - $_"
- }
输出当前行数 $. 和当前行 $_.
-p 可以让上面的程序变得更容易. -p 会输出 $_ 就像这样
- LINE:
- while (<>;) {
- # your code goes here
- } continue {
- print or die "-p destination: $!\n";
- }
continue 在这里保证print 在每次循环都会被调用.
使用 -p, 我们的打印行数程序可以改为
- $ perl -p -e '$_ = "$.
- $_"'
注意到那个 LINE: 标签 ? 我们可以利用它来跳到下一个循环. 使用 next LINE
- $ perl -n -e 'next
LINE unless /pattern/; print $_'
如果想在循环的前后做些处理, 可以使用 BEGIN 或 END block. 下面的这一行计算文件里的字数.
- $ perl -ne 'END {
print $t } @w = /(\w+)/g; $t += @w' file.txt
每一行所有匹配的字放入数组 @w , 然后把 @w 的元素数目递加到 $t. END block 里的 print 最后输出文件总字数.
还有两个参数可以让这个程序变得更简单. -a 打开自动分离 (split) 模式. 空格是缺省的分离号. 输入根据分离号被分离然后放入缺省数组
@F. 由此,我们可以把上面的程序改写为
- $ perl -ane 'END {print
$x} $x += @F' file.txt
你也可以通过 -F 把缺省的分离号改为你想要的.例如把分离号定为非字符:
- $ perl -F'\W' -ane 'END
{print $x} $x += @F' file.txt
下面通过 Unix password 文件来介绍一个复杂的例子. Unix password 是文本文件, 每一行是一个用户记录, 由冒号 :
分离. 第 7 行是用户的登录
shell 路径. 我们可以得出每一个不同
shell 路径被多少个用户使用 :
- $ perl -F':' -ane
'$s{$F[6]}++;' \
- >; -e 'END { print "$_ : $s{$_}" for keys %s }'
/etc/passwd
虽然现在不是一行, 但是你可以看出使用参数可以解决什么问题.
Record Separators
以前我提到过 $/ 和 $\ -- 输入,输出分隔号. $/ 用来分隔从文件句柄里读出的数据, 缺省 $/ 分隔号是 \n ,
这样每次从文件句柄里就会一行行的读取. $\ 缺省是空字符, 用来自动加到要 print 的数据尾端. 这就是为什么很多时候 print
都要在末尾加上 \n.
$/ 和 $\ 可与 -n -p 一起使用. 在命令行上相对应为 -0 (零) 和 -l ( 这是 L ). -0 后面可以跟一个16
进制或8进制数值, 这个值用来付给 $/ . -00 打开段落模式, -0777 打开slurp 模式 (即可以一次把整个文件读入) , 这与把
$/ 设为空字符和 undef 一样效果.
单独使用 -l 有两个效果, 第一自动 chomp 输入分隔号, 第二 把$/ 值付给 $\ ( 这样 print 的时候就会自动在末尾加
\n )
我个人常常使用 -l 参数, 用来给每一个输出加 \n. 例如
- $ perl -le 'print
"Hello World"'
使用已有的参数我们可以写出很有效的命令行程序. 常见的Unix I/O 重定向:
- $ perl -pe 'some code'
< input.txt >; output.txt
这个程序从 input.txt 读取数据, 然后做一些处理再输出到 output.txt. 你当然也可以把输出重定向到同一个文件里.
上面的程序可以通过 -i 参数做的更简单些. -i 把源文件更名然后从这个更名的源文件里读取.最后把处理后的数据写入源文件. 如果 -i
后跟有其他字符串, 这个字符串与源文件名合成后来生成一个新的文件名. 此文件会被用来储存原始文件以免被 -i 参数覆盖.
这个例子把所有
php 字符替换为 perl :
- $ perl -i -pe
's/\bPHP\b/Perl/g' file.txt
程序读取文件的每一行, 然后替换字符, 处理后的数据重新写入( 即覆盖 ) 源文件. 如果不想覆盖源文件, 可以使用
- $perl -i.bak -pe
's/\bPHP\b/Perl/g' file.txt
这里处理过的数据写入 file.txt , file.txt.bak 是源文件的备份.
