Select Code to Download

...
                   |            |
                   /------------\

#/usr/bin/perl -Wl

...
        print Dumper($reresult);
    }else{ print "  badstring\n"}
}

startrule: commandline{$item{commandline}}
commandline: command options {[$item {command},$item{options}]}
...
option: optionflag optionvalue { [$item{optionflag}, $item{optionvalue
+}?$item{optionvalue}:1] }
optionflag: /(-\w+)/ { $1 }
optionvalue: /(\w*)/ { $1 }

hap -b
hap -b sknxharvest01
...
hap -prompt
hap -b sknxharvest01 -prompt
hap -prompt -b sknxharvest01

C:\chas_sandbox\grammars>grammarharness.pl packagegrammar.txt packagec
+ommands.tx
t
...


C:\chas_sandbox\grammars>