11 my $params; 12 while(@ARGV){ 13 my $a=shift @ARGV; 14 unless(@ARGV) { 15 $params->{$a}=""; 16 last; 17 }; 18 if($a =~ /^-/) { 19 my $b=shift @ARGV; 20 unless($b){ 21 $params->{$b}=""; 22 last; 23 }; 24 if($b !~ /^-/){ 25 $params->{$a}=$b; 26 } else { 27 $params->{$a}=""; 28 unshift @ARGV,$b; 29 }; 30 }; 31 }