Perl getopts
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;
foreach (@ARGV) {
print "$_\n";
}
-------------------------------------
shift ARRAY
shift
这个函数把数组的第一个值移出并且返回它，然后把数组长度减一并且把所有的东西都顺移。如果在数组中不再存在元素，它返回 undef。
如果省略了 ARRAY，那么该函数在子过程和格式的词法范围里移动 @_；它在文件范围（通常是主程序）里移动 @ARGV。 子过程通常以拷贝它们的参数到词法变量里开始，而 shift 可以用于这个目的
总之就是shift没有数组作为参数时，就是移动@_这个默认的参数。
-------------------------------------
http://search.cpan.org/~nwclark/perl-5.8.5/lib/Getopt/Std.pm
页:
[1]