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模块。