perl脚本的命令行参数处理办法

perl自带Getopt::Long模块，就是一个函数库。
还有一个Getopt::Std模块，不过有了Getopt::Long，就Getopt::Std的用法就显得太简单了。

下面的代码中，Smart::Comments是另外一个模块，以注释的方式调试和跟踪代码。但是，Smart::Comments不是perl默认自带的模块，需要下载使用，下载地址：http://search.cpan.org/~neilb/Smart-Comments-1.06/lib/Smart/Comments.pm。
ps：perl模块可以不安装，只需要增加指明库的路径即可。

#!/usr/bin/perl 
use strict; 
use Getopt::Long; 

use lib './Smart-Comments-1.06/lib' ; #网上下载后，没有安装到perl目录里，所以需要增加库的路径。
use Smart::Comments; 

my @libs    = ();  
my %flags   = ();  
my ( $verbose, $all, $more, $diam, $debug, $test, $step, $aa); 

GetOptions( 
        'verbose+'  => \$verbose, 
        'more!'     => \$more, 
        'debug:i'   => \$debug, 
        'lib=s'     => \@libs, 
        'flag=s'    => \%flags, 
        'test|t'    => \$test, 
        'all|everything|universe' => \$all, 
        'aa' => \$aa,
); 

### $verbose 
### $more 
### $debug 
### $test 
### @libs; 
### %flags
### $aa

代码解释

详细解释,注意看 GetOptions 中的 => 前面的部分.下面是详解

•‘verbose+’ 接有 + 的选项不接收变量,后面不需要加内容.直接使用就行了,会在每次出现时增加一次变量,就是讲命行时在参数中 -verbose -verbose 出现二次时 verbose 的值就会变成 2.
•‘more!’ 接有 ! 的选项不接收变量(也就是讲后面不需要加参数 –more 来使用就行了),只要命令行中出现了这个参数,就会默认是 1 ,是用来设置打开和关掉一个功能的>.可以在参数前加 no 变成负的例如-nomore.
•‘flag=s’ 接有 = 的字符串要求接字符串（s）、整数（i）,或者浮点（f）等类型的变量.
•‘debug:i’ 接有 : 的选项会接受缺省为0或者为空字符串的可选变量
•‘test|t’ 接有 | 的选项表示可以给 –test 简写为 -t.
•‘lib=s’ => \@libs 如果相关联的变量是个数组, 如这个地方的 @libs, 那么选项可以多次出现, 值可以被推到数组里.
•‘flag=s’ => \%flags 如果相关联的变量是个散列, 那么就要求一个键=值（key=value）对, 并被插入到散列里.
•‘aa’ => $aa 只要有-aa参数，$aa的值就为1，否则为undef.

备注:
在匹配参数名的时候,GetOptions 在缺省设置下会忽略大小写,默认参数被简写为唯一的最短字符串(首字母)（例如,-m 代表 -more. 相同的首字母时,会加上第二个字母来区分)

脚本使用

$ ./test.pl –verbose –verbose -v –more \ –lib=’/lib’ -l ‘/lib64’ –f a=1 –flag b=2 –debug 2 -t fukai -aa
对应的变量值如下所示：

### $verbose: 3 
### $more: 1 
### $debug: 2 
### @libs: [ 
###          '/lib', 
###          '/lib64' 
###        ] 
### %flags: { 
###           a => '1', 
###           b => '2' 
###         }
### $aa: 1

参考文档

在Perl中使用Getopt::Long模块来接收用户命令行参数应用技巧脚本之家
http://www.jb51.net/article/34989.htm
perl模块之Smart::Comments - xshalk的专栏 - 博客频道 - CSDN.NET
http://blog.csdn.net/xshalk/article/details/24851465
Getopt::Long - perldoc.perl.org
http://perldoc.perl.org/Getopt/Long.html