Software >> Development >> Languages >> Perl >> How to program and parse commandline options using forward-slash

foreach $a (@ARGV) { $a =~ s/^\///gi; ($argname,$argval) = split(/=/,$a); $inputarg{$argname} = $argval; } if ( defined $inputarg{'d'} ) { $deptname = $inputarg{'d'}; } if ( defined $inputarg{'db'} ) { #printf "database file = %s\n",$inputarg{'db'}; $accessfile = $inputarg{'db'}; } if ( defined $inputarg{'s'} ) { #printf "start date = %s\n",$inputarg{'s'}; $startdate = $inputarg{'s'}; } if ( defined $inputarg{'e'} ) { #printf "end date = %s\n",$inputarg{'e'}; $enddate = $inputarg{'e'}; } if ( defined $inputarg{'f'} ) { #printf "report format = %s\n",$inputarg{'f'}; $rptformat = $inputarg{'f'}; } if ( defined $inputarg{'o'} ) { #printf "output file = %s\n",$inputarg{'o'}; $outfile = $inputarg{'o'}; }