Parsing Key/Value pairs

[Dan Fish]

I've got a data file with a bunch of key/value pairs in the format
"key=value;".  There may be only one to a line, or there may be several.  I
know I can figure out how to do this using split, but I thought surely there
must be a more "elegant" solution.  I was trying to do this using the
following, but I must be misunderstanding how the "g" modifier works. 

 

use strict;

 

my $str1 = "foo=bar;";

my $str2 = "okey=dokey;file=a file name with spaces;yourkey=mykey;";

 

parsekeys($str1);

parsekeys($str2);

 

sub parsekeys { my ($str) = @_;

 while ($str =~ m/(.*)=(.*);/g){

    print("$1,$2\n");

 }

}

 

This prints: 

 

foo,bar

okey=dokey;file=a file name with spaces;yourkey,mykey

 

when what I'm really looking for is:

 

foo,bar

okey,dokey

file,a file name with spaces

yourkey,mykey

 

Any help appreciated!

Thanks, -Dan