perl命令行参数解析

撒的阿坎努斯

perl命令行参数解析

　　mysql -h ip -u root  此类就属于命令行解析范畴了，不过mysql客户端貌似是C写的，当然perl也可以搞得像这样
　　看起来灰常的酷，在CPAN上我们可以看到Getopt::Cmd和Getopt::Long这两个模块，从名字上我们就可以大致的猜出来，
　　前者是支持-v这样的短命令的形式，另外一个是支持长命令如--host 这样的形式。
　　OK，下面说下使用，如果没安装这两个Module，请自行安装。(直接CPAN安装或者perl MAKE.PL)
　　先说Getopt::Cmd的使用
　　use Getopt::Std;
　　# -v ARG, -D ARG, -o ARG, sets $opt_v, $opt_D, $opt_o
　　getopt("vDo");  
　　# -v ARG, -D ARG, -o ARG, sets $args{v}, $args{D}, $args{o}  
　　getopt("vDo", \%args);getopts("vDo:"); # -v, -D, -o ARG, sets $opt_v, $opt_D, $opt_o
　　getopts("vDo:", \%args); # -v, -D, -o ARG, sets $args{v}, $args{D}, $args{o}
　　很简单，相信看后面的注释都能看出来。
　　再说Getopt::Long
　　use Getopt::Long;
　　GetOptions( "extract" => \$extract, "file=s" => \$file );  
　　if ($extract) {  
　　print "I'm extracting.\n";
　　}
　　die "I wish I had a file" unless defined $file;
　　print "Working on the file $file\n";
　　将--extract和--file的值分别保存在$extract和$file中。然后我们就可以进行其他操作了，至于你要问file=s中，哪个s是干啥的，
　　s其实就是说明那是个字符串，更详细的说明看下表