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;
perl下载安装教程}elsif ($arg eq "-v"){
$version = shift;
}elsif ($arg eq "-h"){
&print_help;
}else {
next;
}
}

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。