How about this:
#!/usr/bin/perl -w
###############################################################
use strict;
use Data::Dumper;
my $data=qq(key1=value1 key2=value2 key3=value3 key4=value4);
my $v={};
foreach my $pair (split(' ',$data)) {
my($key,$value)=split('=',$pair);
$v->{$key}=$value;
}
print Dumper($v);
Yields:
$VAR1 = {
'key1' => 'value1',
'key2' => 'value2',
'key3' => 'value3',
'key4' => 'value4'
};
Alternatively you can do the following with the same results
#!/usr/bin/perl -w
###############################################################
use strict;
use Data::Dumper;
my $data=qq(key1=value1 key2=value2 key3=value3 key4=value4);
my $v={};
map { my($k,$vl) = split('=',$_);
$v->{$k}=$vl;
} split(' ',$data);
print Dumper($v);
HTH
Peter L. Berghold | Schooner Technology Consulting, Inc. |
Peter@Berghold.Net | www.berghold.net |