[转]Perl使用Getopt获取命令行参数

 

代码示例如下:

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

 

One thought on “[转]Perl使用Getopt获取命令行参数

Leave a Reply

Your email address will not be published. Required fields are marked *