Perl getopts

bei

　　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没有数组作为参数时，就是移动@_这个默认的参数。
　　-------------------------------------
　　http://search.cpan.org/~nwclark/perl-5.8.5/lib/Getopt/Std.pm