[Perl] Getopt::Long模块用法

 阅读perldoc.perl.org是最好的掌握模块使用方式的途径。

还是那句话，20%的内容能够满足80%的需求，所以这个只是简单描述Getopt::Long的用法。

1.选项可以保存在标量里
   my $verbose = '';    # option variable with default value (false)
   my $all = '';    # option variable with default value (false)
   GetOptions ('verbose' => /$verbose, 'all' => /$all);
   用法： --all --verbose

2.选项可以保存在数组里
      GetOptions ("library=s" => /@libfiles);
   用法： --library lib/stdlib --library lib/extlib

3.选项可以保存在hash里
      GetOptions ("define=s" => /%defines);
   用法： --define os=linux --define vendor=redhat
  
4.对于选项数目多，并且各个选项所带参数情况不同时，可以使用这种形式：
      GetOptions (/%define, qw (family=s h hostid=s discover rescan refresh));
    选项可以接受--family FAMILYNAME --h --hostid HOSTID --discover --rescan --refresh
    选项保存在hash %define里！

其他比如: ! + 这些符号的含义和用法，可以去perldoc查看，这里不做介绍了。