Help for this page

Select Code to Download


  1. or download this
    $option_line = join ' ', @ARGV; #reconstitute
    my @pairs = $option_line =~ m/(\w+:\s+\w+)/g; # grab option pairs
    ...
        # save each pair in hash
        $option{$name} = $value;
    }
    
  2. or download this
    our %opt_hash; #can't use my
    use Getopt::Declare;
    ...
        [repeatable]
    };
    # untested