Perl 模块 Getopt::Std 和 Getopt::Long

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Perl 模块 Getopt::Std 和 Getopt::Long，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1458字，纯文字阅读大概需要3分钟。

内容图文

原文链接：http://www.cnblogs.com/jasonliu/archive/2011/10/27/2226489.html

示例程序:

getopt.pl;

1	#!/usr/bin/perl -w

2	#use strict;

3	use Getopt::Std;

4	use vars qw($opt_a $opt_b $opt_c);

5	getopts('a:b:c');

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

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

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

注释:'a:b:c',a和b后有冒号,表示-a,-b后面要跟参数.c后面没有冒号,表示-c后面不带参数.

而且-a,-b后所跟的参数分别赋给变量$opt_a和$opt_b,对于变量$opt_c,若命令行加了-c,则$opt_c=1,否则为0.

如:

perl getopt.pl -a aa -b bb -c cc

显示:

opt_a =>;aa
opt_b =>;bb
opt_c =>;1

如:

perl getopt.pl -a aa -b bb
opt_a =>;aa
opt_b =>;bb

(因为加了if判断,所以$opt_c没有显示);

上面的例子,用Getopt::Long可以这样实现

 

 

上面的例子，用Getopt::Long可以这样实现

getoptions.pl

1	#!/usr/bin/perl

2	use Getopt::Long;

3	use vars qw($opt_a $opt_b $opt_c);

4	GetOptions("a=s"=>\$opt_a,"b|opt_b:i"=>\$opt_b,"c"=>\$opt_c);

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

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

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

a=s表示可以用-a aa的形式,即变量-a 类型是字符串
b|opt_b:i表示可以用-b或者-opt_b来取得变量,类型为整型
c表示如果有-c的参数值则$opt_c等于1,否则等于0

其中
s表示字符串,i表整型,f表示浮点型
=表示要有参数值或者没有这个参数如:perl getoptions.pl -a aa -b bb或者perl getoptions.pl -b bb
:表示可有参数值也可以没有参数值
如:
perl getoptions.pl -a aa -b 2 -c cc
opt_a =>;aa
opt_b =>;2
opt_c =>;1

转载于:https://www.cnblogs.com/jasonliu/archive/2011/10/27/2226489.html

内容总结

以上是互联网集市为您收集整理的Perl 模块 Getopt::Std 和 Getopt::Long全部内容，希望文章能够帮你解决Perl 模块 Getopt::Std 和 Getopt::Long所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---