Getopt::Long一问

unicornx

我想实现用户的输入如下：
command -option1 1, 2, 3 -option2
请问采用Getopt能否实现？ 主要的困惑是对 option1 后的 “1, 2, 3” 不知道怎么做，请教大侠，谢了先。

flw

后面那个 1,2,3 Getopt::Long 是做不了的，
不过你可以拿到 option1 的值以后作个简单的 split 就可以了。

unicornx

回复 2# flw
可是问题就在于我怎么才能拿到后面的那些值呢？
我说的例子是后面的值是以逗号分割，同时还可能夹杂着空格，试了一遍Getopt里的方法，好像都有问题，难道只能从◎ARGV里去想办法？

flw

回复  flw
可是问题就在于我怎么才能拿到后面的那些值呢？
我说的例子是后面的值是以逗号分割，同时还可 ...
unicornx 发表于 2010-04-19 09:43

空格肯定是不行的。

zeroxia

option1的值先作为字符串读进来，然后你自己对这个字符串进行分析，按照你的格式提取你需要的内容。同时也要注意非法格式的问题。

昨天刚好写了个脚本，提取出来一部分改改供参考。

使用的时候，如果“包含空格”，可以这样：
# perl test.pl --option1 "1, 2, 3, 4"
也就是防止shell来给你split掉了。

建议自己看看文档就知道了：
# perldoc Getopt::Long

1. #!/usr/bin/env perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. use Getopt::Long qw(:config gnu_getopt);
   
6. 
   
7. my %options = (
   
8.         'help' => +{spec => 'help|?|h', value => undef },
   
9.         # default output is "short" options
   
10.         'long' => +{spec => 'long-options|l!', value => undef },
    
11.         # count of options printed each line
    
12.         'width' => +{spec => 'width|w=i', value => 4},
    
13.         # verbose mode, report each option hit as scanning
    
14.         'verbose' => +{spec => 'verbose|v!', value => 0},
    
15.         # dummy option
    
16.         'option1' => +{spec => 'option1|o=s', value => undef},
    
17. );
    
18. GetOptions(
    
19.         map {;
    
20.                 $options{$_}{spec} =>
    
21.                         (ref($options{$_}{value}) ? $options{$_}{value} : \$options{$_}{value});
    
22.         } keys(%options)
    
23. );
    
24. if ($options{help}{value}) { usage(); }
    
25. 
    
26. ## 这里是要特殊处理的地方
    
27. if (defined($options{option1}{value})) {
    
28.         my @items = split '\s*,\s*', $options{option1}{value};
    
29.         $options{option1}{value} = \@items;
    
30. }
    
31. 
    
32. ### option dumping
    
33. print "Your options:\n";
    
34. foreach (keys(%options)) {
    
35.         printf "  %s: %s\n", $_, argument_value($options{$_}{value});
    
36. }
    
37. 
    
38. exit 0;
    
39. 
    
40. sub argument_value {
    
41.         my ($val) = @_;
    
42.         unless (defined($val)) {
    
43.                 return '<undef>';
    
44.         }
    
45.         if (ref($val)) {
    
46.                 if (ref($val) eq 'ARRAY') {
    
47.                         return "[" . join(" ", @$val) . "]";
    
48.                 } else { ## ignore other types
    
49.                         return "<UNKNOWN>";
    
50.                 }
    
51.         } else {
    
52.                 # scalar
    
53.                 return $val;
    
54.         }
    
55. }
    
56. 
    
57. sub usage {
    
58.         (my $PROG = $0) =~ s/^.*\///;
    
59.         print <<EOF;
    
60. USAGE
    
61.         $PROG OPTIONS
    
62. 
    
63. OPTIONS:
    
64.            -l, --long                Long options switch
    
65.            -w, --width=N             Number of options to print each line
    
66.            -h, --help                This help screen
    
67. 
    
68. COPYRIGHT
    
69.            (C) 2010 XXX XXXXXXX, <XXX\@gmail.com>
    
70. EOF
    
71.         exit 1;
    
72. }
    
73. 
    

复制代码

unicornx

回复 5# zeroxia


    xiexie, 看来有空格还是很特殊。