perl参数传递的三种方法

olga

　　1.使用perl自带的Long.pm模块,
　　use Getopt::Long;
　　Getopt::Long::GetOptions(
　　'c=s'  => \$community,  //c是传递的参数标识符，s代表传递的参数是字符串，参数将传递给$community这个变量
　　'H=s'  => \$host_name,
　　'v=i'  => \$version,    //i代表传递的参数是数字
　　);
　　2.使用perl自带的Std.pm模块
　　use Getopt::Std;
　　use vars qw($opt_H $opt_c $opt_v);
　　getopts('H:c:v:');
　　$host_name   = $opt_H if $opt_H;
　　$community = $opt_c if $opt_c;
　　$version = $opt_v if $opt_v;
　　3.自己写的脚本
　　while (defined($arg = shift)){
　　if ($arg eq "-H"){
　　$host_name = shift;
　　}elsif ($arg eq "-C"){
　　$community = shift;
　　}elsif ($arg eq "-v"){
　　$version = shift;
　　}elsif ($arg eq "-h"){
　　&print_help;
　　}else {
　　next;
　　}
　　}