1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!/usr/bin/env perl
use strict;
use Data::Dumper;
use Getopt::Complete (
'>animal' => [
'>dog' => [
'>bark' => [
'ferocity' => ['yip','wail','ruf','grrrr'],
'count' => ['1','2','one too many'],
],
'>drool' => [
'buckets=n' => undef,
'lick' => 'users',
],
'list!' => undef,
],
'>cat' => [
'>purr' => [],
'>meow' => [
'volume=n' => undef,
'bass' => ['low','medium','high'],
]
],
],
'>plant' => [
'>taters' => [
'>bake' => [
'hard!' => undef,
'temp=n' => undef,
],
'>fry' => [
'greasiness' => ['crispy','drippy'],
'width' => ['fat','thin','frite'],
]
],
'>daisies' => [
'>pick' => [
'<>' => ['mine','yours','theirs'],
],
'>plant' => [
'season' => ['winter','spring','summer','fall'],
'seeds=n' => undef,
'deep!' => undef,
]
]
],
);
print Dumper($ARGS);
1;
|
