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" };