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