perl模块 Getopt::Std模块的使用

ykwll

Getopt::Std模块的使用：　　初始设置：  
　　在程序中加入如下代码：
　　         use Getopt::Std;
　　              use vars qw($opt_d $opt_f $opt_p);
　　              getopts('d:f:p');
　　              (注意上两行的参数要对应)
　　[ 解释一下"d:f:p"，d和f后有冒号，表示-d，-f后面要跟参数。p后面没有冒号，表示-p后面不带参数。
　　而且-d，-f后所跟的参数分别赋给变量$opt_d和$opt_f。对于变量$opt_p，若命令行加了-p，则$opt_p=1，否则为0]
　　举个例子就很清楚了：
　　vi file.pl
　　添加如下代码：
　　use Getopt::Std;
　　use vars qw($opt_d $opt_f $opt_p);
　　getopts('d:f:p');
　　print "\$opt_d =>; $opt_d\n" if $opt_d;
　　print "\$opt_f =>; $opt_f\n" if $opt_f;
　　print "\$opt_p =>; $opt_p\n" if $opt_p;
　　然后在命令行中运行：
　　perl file.pl -d 20040412 -f louiskoochen -p
　　可得到下列形式的输出：
　　$opt_d =>;200040412
　　$opt_f =>;louiskoochen
　　$opt_p =>;1