游戏后台开发
分类: LINUX
2013-09-09 11:05:37
getopts的使用问题
#!/usr/bin/perl
#execute ABC.pl -s 999 -g -t
use Getopt::Std;
getopts('s:t:g:',\%opts);
foreach my $key ( keys %opts){
print $key,"-->;",$opts{$key},"\n";
}
-------------------------------------
注意看getopts('st:g:');
t:
g:
这两个参数后面有 ":"
表示这两个参数,如果有就一定要带参数...例如-t 100 -g 200
而s后面没有":" ,表示s后面不能带任何参数...只能用 -s或 没有,如果你带了参数-s 1..后面的参数便会受到影响..
-------------------------------------
#!/usr/bin/perl
# script is "./g"
use Getopt::Std;
%options=();####################是perl的hash数据结构
getopts("od:fF",\%options);
[ 解释一下"od:fF",d后有冒号,表示-d后面要跟参数。ofF后面没有冒号,表示-o -f -F后面不带参数。
而且-d后所跟的参数分别赋给变量$options{d}。对于变量$options{o},$options{f},$options{F},若命令行加了-o,则$options{o}=1,否则为0。-f,-F类似]
# like the shell getopt, "d:" means d takes an argument
print "-o $options{o}\n" if defined $options{o};
print "-d $options{d}\n" if defined $options{d};
print "-f $options{f}\n" if defined $options{f};
print "-F $options{F}\n" if defined $options{F};
print "Unprocessed by Getopt::Std:\n" if $ARGV[0];
foreach (@ARGV) {
print "$_\n";
}
-------------------------------------
shift ARRAY
shift
这个函数把数组的第一个值移出并且返回它,然后把数组长度减一并且把所有的东西都顺移。如果在数组中不再存在元素,它返回 undef。
如果省略了 ARRAY,那么该函数在子过程和格式的词法范围里移动 @_;它在文件范围(通常是主程序)里移动 @ARGV。 子过程通常以拷贝它们的参数到词法变量里开始,而 shift 可以用于这个目的
总之就是shift没有数组作为参数时,就是移动@_这个默认的参数。