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