perl处理命令行参数
使用Getopt::std模块代码如下
use strict ;
use Getopt::Std ;
sub test{
use vars qw($opt_d $opt_f) ;
getopts('d:f:') ;
print $opt_d, "\n" ;
print $opt_f, "\n" ;
}
&test() ;
1 ;
'd:f:' d和f后面有冒号，表示-d和-f后面必须跟参数。
对于更复杂的命令行参数处理，请看Getopt::long模块。
页:
[1]