[Perl]实用性很强的模块Getopt::Std和Getopt::Long

这两个模块能够很容易处理命令开关，以后就不用自己在程序中分析处理了。

这两个模块无需到CPAN下载，perl自带。

#!/usr/bin/perl -w
use Getopt::Std;
Getopt::Std::getopts('a:b:c:de', \%options);
print "-a:$options\n";
print "-b:$options\n";
print "-c:$options\n";
print "-d:$options\n";
print "-e:$options\n";

#!/usr/bin/perl
use Getopt::Long;
Getopt::Long::GetOptions(
                'page=i'    => $page,
                'onoff!'    => $onoff,
                'help'      => $wants_help,
                'name=s'    => $name,
                'number:i'  => $number);
if(defined($page)){
        print "page flag set to $page\n";
}
if(defined($onoff)){
        print "onoff flag set to $onoff\n";
}
if(defined($wants_help)){
        print "help flag set to $wants_help\n";
}
if(defined($name)){
        print "name flag set to $name\n";
}
if(defined($number)){
        print "number flag set to $number\n";
}