Re: creating hash from scalar variable

Rodrick Brown wrote:

use Data::Dumper;
my %h;
map { $h{$_->[0]}=$_->[1] } map { [ split/=/,$_ ] } split/\n/,$test;
print Dumper(\%h);

Or, more intelligibly,

my %h;

foreach (split /\n/, $test) {
my ($key, $val) = split /=/;
$h{$key} = $val;
}

Rob
.