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