perl下Getopt::Std模块的使用

Getopt::Std模块的功能:
初始化perl命令行中所接受的参数，简化了命令行参数的解析。

例子：

#!/usr/bin/perl -w

use strict;
use Getopt::Std;

use vars qw($opt_a $opt_b $opt_c);
getopts('d:f:p:');

print "\$opt_a =>; $opt_a\n" if $opt_a;
print "\$opt_b =>; $opt_b\n" if $opt_b;
print "\$opt_c =>; $opt_c\n" if $opt_c;

输出如下：
[root@mail test]# ./getopt.pl -a aa -b bb -c cc
$opt_a =>; aa
$opt_b =>; bb
$opt_c =>; cc

说明：
vars 是一个Perl的pragma，用来预定义全局变量。这些预定义后的全局变量qw()列表中的在整个Perl文件中皆可使用，即使使用了use strict也不会报警。