#!/usr/bin/perl
use Getopt::Long;
Getopt::Long::GetOptions(
'page=i' => \$page,
'onoff!' => \$onoff,
'help|h' => \$wants_help,
'name=s' => \$name,
'number:i' => \$number);
if(defined($page)){
print "page flag set to $page ";
}
if(defined($onoff)){
print "onoff flag set to $onoff ";
}
if(defined($wants_help)){
print "help flag set to $wants_help ";
}
if(defined($name)){
print "name flag set to $name ";
}
if(defined($number)){
print "number flag set to $number ";
}
结果:
#C:\Users\liuweic\demo\LearnLab>triggeraction.pl -onoff
#onoff flag set to 1
#C:\Users\liuweic\demo\LearnLab>triggeraction.pl -page 50
#page flag set to 50
#C:\Users\liuweic\demo\LearnLab&
PERL参数指令技:Getopt::Long
最新推荐文章于 2024-01-04 11:36:40 发布
本文介绍了Perl编程中Getopt::Long模块的使用,包括verbose选项的递增计数,带有!的开关选项,使用=指定字符串、整数或浮点数变量,以及通过|创建选项别名。还提到了可以多次出现并添加到数组的'lib=s'选项和要求键值对的'flag=s'选项。GetOptions函数默认忽略大小写并自动简写选项。
摘要由CSDN通过智能技术生成