perl参数传递的三种方法

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;       } }