代码示例如下：

use Getopt::Std;
my %opt;
getopts('d:f:p', \%opt);
if($opt{p}){
    ...
}
if($opt{d}){
    $dFile=$opt{d};
}

解释一下"d:f:p"，d和f后有冒号，表示-d，-f后面要跟参数。p后面没有冒号，表示-p后面不带参数。

而且-d，-f后所跟的参数分别赋给变量$opt_d和$opt_f。对于变量$opt_p，若命令行加了-p，则$opt_p=1，否则为0。

转载自：http://hi.baidu.com/daxuelangren/item/7e91c4fd80e9b8e81b111f39