Help for this page

Select Code to Download


  1. or download this
    my %opt;
    @ARGV > 0 and getopts( 'a:', \%opt ) or die <<"USAGE";
    
  2. or download this
    my $opt = {};
    @ARGV > 0 and getopts( 'a:', $opt ) or die <<"USAGE";