Perl Getopt and GetOptions-白红宇

Perl Getopt and GetOptions

阅读量：5840 次

发布时间：2019-06-18

本文共 4600 字，大约阅读时间需要 15 分钟。

官方资料：，以下转载自：

正文：

&GetOptions("p=s" => \$ParameterFile,

"s:s@" => \@Step,

"notify!" => \$NotifyFlag,

);

$NotifyFlag=0 if (! defined $NotifyFlag);

我们在linux常常用到一个程序需要加入参数,现在了解一下perl中的有关控制参数的函数.getopt.在linux有的参数有二种形式.一种是–help,另一种是-h.也就是-和–的分别.–表示完整参数.-表示简化参数.

在perl中也分这二种.

Getopt::Std模块的功能: 初始化perl命令行中所接受的参数，简化了命令行参数的解析。

简化参数例子：

#!/usr/bin/perl -w

usestrict;useGetopt::Std;

usevars

qw($opt_a $opt_b $opt_c);

getopts('d:f:p:');

print "\$opt_a =>; $opt_a\n" if $opt_a;

print "\$opt_b =>; $opt_b\n" if $opt_b;

print "\$opt_c =>; $opt_c\n" if $opt_c;

输出如下：

[root@mail test]# ./getopt.pl -a aa -b bb -c cc

$opt_a =>; aa

$opt_b =>; bb $opt_c =>; cc

带值参数

※参数类型：整数, 浮点数, 字串

GetOptions( ‘tag=s’ => \$tag );

'='表示此参数一定要有参数值, 若改用 ':'代替表示参数不一定要有参数值

's’表示传递字串参数, 若为’i'表传递整数参数, 若为’f'表传递浮点数

example:

test.pl –tag=string

test.pl –tag string

多参数值的参数

GetOptions ("library=s" => \@libfiles);

参数传到 @tag

GetOptions ("library=s@" => \$libfiles);

参数传到 @$tag

example:

test.pl –library lib/stdlib –library lib/extlib

参数别名

GetOptions (‘length|height=f’ => \$length);

第一个名称为primary name, 其他的名称为alias(可有多个alias名称)

当使用hash参数时, 使用primary name作为key值

参数的简称及大小写

GetOptions (‘length|height=f’ => \$length, "head" => \$head);

若没有特别设定, Getopt会忽略参数的大小写, 也就是 -l or -L 指的都

是同一个参数(–length)

对于不传递参数的选项，也就是一些开关类型，可以在第一部分后接“!”，这表示该选项不接收自变量，但是可以通过在前面加上no变成负的（例如，“more”选项的-nomore）。如果不是用“!”，而是“+”，这表示它会在每次出现的时候增加一个变量。如果选项出现在命令行里，那么相关的变量被设置为1；如果负的选项出现了，那么相关的变量就被设置为0。

hash参数值(有名称及参数值)

GetOptions ("define=s" => \%defines);

GetOptions ("define=s%" => \$defines);

example:

test.pl –define os=linux –define vendor=redhat

完整参数：

#!/usr/bin/perl

useGetopt::Long;

Getopt::Long::GetOptions(

'page=i' => \$page,

'onoff!' => \$onoff,

'help' => \$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 ";

}

运行命令：

./getlong.pl -name AAA

name flag set to AAA

Getopt::Long 模块

使用这个模块其实只要知道一些常用的用法就行了。

这是文档中的例子：

use Getopt::Long;

my $data = "file.dat";

my $length = 24;

my $verbose;

$result = GetOptions ("length=i" => \$length, # numeric

"file=s" => \$data, # string

"verbose" => \$verbose); # flag

观察一下 GetOptions 函数的参数，可以发现，大致可以把设置分为三个部分：（1）命令行的选项，对应于“length”，“file”，”verbose”，这样在命令行就可以用 -length 或者 —length 甚至 -l（必须是唯一的）触发选项了。可以通过使用“|”来设置别名。（2）选项类型，后面接有=的字符串要求接字符串（s）、整数（i），或者浮点（f）等类型的自变量。后面接有:的选项会接受缺省为0或者为空字符串的可选自变量。（3）选项设置的变量。对于不传递参数的选项，也就是一些开关类型，可以在第一部分后接“!”，这表示该选项不接收自变量，但是可以通过在前面加上no变成负的（例如，“more”选项的-nomore）。如果不是用“!”，而是“+”，这表示它会在每次出现的时候增加一个变量。如果选项出现在命令行里，那么相关的变量被设置为1；如果负的选项出现了，那么相关的变量就被设置为0。

use Getopt::Long;

# declare default values for variables

$verbose = 0;

$all = 0;

$more = -1; # so we can detect both -more and -nomore

$diam = 3.1415;

@libs = ();

%flags = ();

$debug = -1; # test for -debug with no argument (0)

# process options from command line

# verbose will be incremented each time it appears

# either all, everything or universe will set $all to 1