Perl输入问题

stale

请问一下，如果我想要一个格式为:
gs.pl "key word" --number 100

的输入(调用gs.pl,传入参数 key word，和switch 100).其中--number 100,我知道可以用Getopt：：Long来实现，但是"keyword"这部分，因为不要operand,只要operand value,应该通过Getopt中的哪个模块或函数来实现呢？(不要正则表达式)。

哪位高手可以帮忙讲解一下，谢谢了。

churchmice

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use strict;
   
5. use warnings;
   
6. use Getopt::Long;
   
7. my $number;
   
8. print "\@ARGV -->@ARGV\n";
   
9. GetOptions("number=i" => \$number);
   
10. print "\@ARGV -->@ARGV\n";
    
11. my $keyword = shift;;
    
12. print "\@ARGV -->@ARGV\n";
    
13. print "\$number -->$number\n";
    
14. print "\$keyword --->$keyword\n";
    
15. 
    
16. 
    

复制代码

Getopt::Long  只是处理@ARGV中跟GetOptions匹配的东西,其余的还是在@ARGV中
参见运行结果

<lig@other-server:~/chinaunix>$ ./gs.pl "key word" --number 100
@ARGV -->key word --number 100
@ARGV -->key word
@ARGV -->
$number -->100
$keyword --->key word

[ 本帖最后由 churchmice 于 2008-2-16 15:23 编辑 ]

stale

学会了，谢谢churchmice 了！