Getopt::Long模块是用于解析命令行参数的perl模块
use Getopt::Long;
my @apples = ();
my %flags = ();
my ( $more, $switch, $string, $network);
GetOptions(
'more + ' => \$more,
'switch ! ' => \$switch,
'string : i' => \$string,
'apple = s' => \@apples,
'fruit = s' => \% fruits,
'network | n' => \$network,
);
•‘more+' 使用-more来触发，接有 + 的选项不接收变量,直接使用即可,每出现一次变量值增加1.
•‘switch!' 使用-switch触发，接有 ! 的选项不接收变量,只要命令行中出现了这个参数,就会默认是1 ,是用来设置打开和关掉一个功能的.可以在参数前加 no 变成负的,如-noswitch.
•‘apple=s' 接有 = 的字符串要求接字符串（s）、整数（i）,或者浮点（f）等类型的变量.
•‘string:i' 接有 : 的选项会接受缺省为0或者为空字符串的可选变量
•‘network|n' 接有 | 的选项表示可以给-network 简写为 -n.
•‘apple=s' => @apples 如果相关联的变量是个数组, 如这个地方的 @libs, 那么选项可以多次出现, 值可以被推到数组里.
•‘fruit=s' => %fruits 如果相关联的变量是个散列, 那么就要求一个键=值（key=value）对, 并被插入到散列里.
