fork download
copy 
  1. use Data::Dumper;
  2. $_ = 'command1 --max-size=2M a=ignore =ignore --switch --type="some value" --x= --z=1';
  3. my %args;
  4. while (/((?<=\s--)[a-z\d-]+)(?:="?|(?=\s))((?<![="])|(?<=")[^"]*(?=")|(?<==)(?!")\S*(?!"))"?(?=\s|$)/ig) {
  5.   $args->{$1} = $2;
  6. }
  7. print Dumper($args);
Success #stdin #stdout 0.01s 5160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$VAR1 = {
          'switch' => '',
          'x' => '',
          'type' => 'some value',
          'z' => '1',
          'max-size' => '2M'
        };
https://ideone.com/m1AlJy
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!