perl中Getopt::Long 获取命令行参数

#!/usr/bin/perl
use strict;
use Getopt::Long;
my @libs = ();
my %flags = ();
my ($verbose,$debug,$test) ;
GetOptions(
        'verbose+' => \$verbose, --
        'lib=s' => \@libs,
        'debug:i' => \$debug,
        'test|t=s' => \$test,
        'flags=s' => \%flags,
);

print $verbose."\n";
print @libs."\n";
print $debug."\n";
print $test."\n";
foreach(keys %flags){ print "$_ => $flags{$_}\n" };