Getopt::Long问题求教

stale

我现在想通过Getopt::Long实现读入命令行输入，其中有两个参数，一个叫SearchIndex，一个叫Keyword，但是Keyword可能有多个单词组成，比如说Sony Cybershot T20，所以我想用数组：

$searchIndex;
@Keyword;
GetOptions ('SearchIndex=s' => \$searchIndex, 'Keyword=s@{1,}' => \@Keyword);

在windows下运行成功，但是在unix下运行的时候报错：Error in option spec: 'Keyword=s@{1,}'.
我想知道为什么这样不行，求达人指教，谢谢了！

churchmice

Options with multiple values

       Options sometimes take several values. For example, a program could use
       multiple directories to search for library files:

           --library lib/stdlib --library lib/extlib

       To accomplish this behaviour, simply specify an array reference as the
       destination for the option:

           GetOptions ("library=s" => \@libfiles);

       Alternatively, you can specify that the option can have multiple values
       by adding a "@", and pass a scalar reference as the destination:

           GetOptions ("library=s@" => \$libfiles);

churchmice

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Getopt::Long;
   
5. my $search;
   
6. my @keyword;
   
7. GetOptions("search=s" => \$search,
   
8.            "keyword=s" =>\@keyword,);
   
9. print "\$search -->$search\n";
   
10. print "\@keyword --->@keyword\n";
    

复制代码

运行结果

<lig@other-server:~/chinaunix>$ ./keyword.pl --search a --keyword a --keyword b $search -->a
@keyword --->a b

stale

谢谢，但是如果我想输入的命令行是keyword.pl --search a --keyword a  b
然后让keyword返回a b，应该怎么写呢？
为什么我那程序在windows下可以执行,在unix下就报错呢？

churchmice

原帖由 stale 于 2008-1-31 17:16 发表
谢谢，但是如果我想输入的命令行是keyword.pl --search a --keyword a  b
然后让keyword返回a b，应该怎么写呢？
为什么我那程序在windows下可以执行,在unix下就报错呢？

因为windows和unix是不同的系统
activeperl的模块和unix里面的perl模块实现是不一样的

churchmice

如果你的命令行参数里面只有--option argument1 argument2 这样的选项
那么你直接对@ARGV进行处理好了
没有必要使用Getopt::Long模块了

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. my $key;
   
6. my %hash;
   
7. for(@ARGV){
   
8. if (/^--(.+)/){
   
9. $key = $1;
   
10. next;
    
11. }
    
12. $hash{$key}.= "$_ ";
    
13. }
    
14. my $search = $hash{"search"};
    
15. my @keyword = split /\s+/,$hash{"keyword"};
    
16. print "\$search = $search\n";
    
17. print "\@keyword = @keyword\n";
    

复制代码

运行结果

<lig@other-server:~/chinaunix>$ ./modify  --search a --keyword a b sfs
$search = a
@keyword = a b sfs

<lig@other-server:~/chinaunix>$ ./modify  --search a --keyword a b sf
$search = a
@keyword = a b sf

[ 本帖最后由 churchmice 于 2008-1-31 19:24 编辑 ]

stale

谢谢churchmice了！