Help for this page

Select Code to Download


  1. or download this
    $option_line = join ' ', @ARGV; #reconstitute
    my @pairs = m/(\w+:\s+\w+)/g; # grab option pairs
    
  2. or download this
    my @pairs = ( $option_line =~ m/(\w+:\s+\w+)/g );