Getopt::Long

最新推荐文章于 2019-05-02 11:32:57 发布

sxlwzl

最新推荐文章于 2019-05-02 11:32:57 发布

阅读量641

点赞数

分类专栏： perl

本文链接：https://blog.csdn.net/sxlwzl/article/details/23165119

版权

perl 专栏收录该内容

41 篇文章 4 订阅

订阅专栏

一，接受单个参数

#!/usr/bin/perl -w

use Getopt::Long;

my $name='aaa';
#my $length=24;

&GetOptions(
	'name=s' => \$name
);

print "name = ".$name."\n\n";

$perl getopt.pl -name bbb

$name =bbb

$perl getopt.pl

$name =aaa

总结：

1，name=s 后面的s是必要的，没有的话，不能正常接收。

2，my $name ='aaa';这里是设置缺省值，如果不输入参数的话，按照缺省值aaa

3，-name 后面跟参数，可以-name bbb，也可以-name=bbb，推荐使用-name=bbb

二，接受多个参数

#!/usr/bin/perl -w
use Getopt::Long;

my $name='zl';
my $length=24;

&GetOptions(
	'name=s' => \$name,
	"length=i" => \$length
);

print "name = ".$name."\n\n";
print "length = ".$length."\n\n";

总结：

1，可以输入好几个参数，-name=bbb -length=123。

2,输入参数的顺序可以打乱，-name=bbb -length=123 或者-length=123 -name=bbb 都能保证结果的正确性。

3，不输入参数的话，按照默认值。

三，接受多个参数和数组

#!/usr/bin/perl -w
use Getopt::Long;

my $name='zl';
my $length=24;
my @array;

&GetOptions(
	'name=s'   => \$name,
	"length=i" => \$length,
	"array=s"  => \@array
);

print "name = ".$name."\n\n";
print "length = ".$length."\n\n";
foreach (@array){
	print($_."\n");
}

总结：

1，可以添加数组，perl getopt.pl -array=abc -array=def,

注意看 GetOptions 中的 => 前面的部分.下面是详解

‘verbose+’ 接有 + 的选项不接收变量,后面不需要加内容.直接使用就行了,会在每次出现时增加一次变量,就是讲命行时在参数中 -verbose -verbose 出现二次时 verbose 的值就会变成 2.
‘more!’ 接有 ! 的选项不接收变量(也就是讲后面不需要加参数 –more 来使用就行了),只要命令行中出现了这个参数,就会默认是 1 ,是用来设置打开和关掉一个功能的>.可以在参数前加 no 变成负的例如-nomore.
‘flag=s’ 接有 = 的字符串要求接字符串（s）、整数（i）,或者浮点（f）等类型的变量.
‘debug:i’ 接有 : 的选项会接受缺省为0或者为空字符串的可选变量
‘test|t’ 接有 | 的选项表示可以给 –test 简写为 -t.