language: Perl (perl 5.16.2)
date: 1017 days 3 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13

my $string = "var1=100 var2=90 var5=hello var3=\"a, b, c\" var7=test var3=hello";
 
my @array = ();
while($string =~ /(?:^|\s+)(\S+)\s*=\s*("[^"]*"|\S*)/g)
{
  push( @array, $1."=".$2 );
  my @array = ();
}
 
for ( my $i = 0; $i < scalar( @array ); $i++ )
{
     print $i.": ".$array[$i]."\n";
}