Re: creating hash from scalar variable

[Rob Dixon]

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

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/