perl的预参数处理
来源:互联网 发布:狼人杀记录软件 编辑:程序博客网 时间:2024/06/06 12:25
http://blog.nowans.com/Content/blogger.7e16e6758496d022.html
1、可以使用Getopt::Std模块来实现。
Quotes
use Getopt::Std;
# -v, -D, -o ARG, sets $opt_v, $opt_D, $opt_o
getopts("vDo:");
# -v, -D, -o ARG, sets $args{v}, $args{D}, $args{o}
getopts("vDo:", /%args);
# -v, -D, -o ARG, sets $opt_v, $opt_D, $opt_o
getopts("vDo:");
# -v, -D, -o ARG, sets $args{v}, $args{D}, $args{o}
getopts("vDo:", /%args);
2、或者使用Getopt::Long来允许命名参数:
Quotes
use Getopt::Long;
GetOptions( "verbose" => /$verbose, # --verbose
"Debug" => /$debug, # --Debug
"output=s" => /$output );
GetOptions( "verbose" => /$verbose, # --verbose
"Debug" => /$debug, # --Debug
"output=s" => /$output );
3、如果不想对模块有所依赖,那么我们可以自己实现:
Quotes
my $var_name = "";
foreach (@ARGV) {
$var_1=int($_) if $var_name eq "-i" && !/^-/;
$var_2=$_ if $var_name eq "-c" && !/^-/;
$var_name=$_ if /^-/;
}
foreach (@ARGV) {
$var_1=int($_) if $var_name eq "-i" && !/^-/;
$var_2=$_ if $var_name eq "-c" && !/^-/;
$var_name=$_ if /^-/;
}
- perl的预参数处理
- perl的动态参数
- Perl的时间处理
- Perl的时间处理
- perl 处理perl返回的json
- 关于Perl的传入参数
- Perl对中文的处理
- perl对中文的处理
- perl使用Getopt::Long模块,处理命令行参数
- [Perl] 在 Perl 下处理时间的小技巧 strftime
- perl函数的参数接收方法
- Win下的Perl带参数运行
- Perl 的命令行参数(One-liner)
- perl中重要的几个命令行参数
- Perl对字符串的运算的处理
- 一行的perl过滤器-算数处理
- Perl的错误处理(1)
- perl对中文的处理(encode,decode)
- 美国观察:美女 (第一次在美国见这么多美女而且就在公司门口)
- 解决IE6中CSS使用透明背景图片的问题
- 一个可以拖拽的Web树.
- 奇怪的Flash导出问题
- 谈判(三)
- perl的预参数处理
- 一名25岁的董事长给大学生的18条忠告
- 国人“急功近利”的理由和无奈
- 2009年流行关键词,今天你“低俗”了么?
- 物理引擎
- Ageia的PhsyX遭破 无需物理卡即可开启
- 关于OpenAL
- OpenSceneGraph
- 美国观察:这就是民主?拍一张公司门口的抗议照片