RE: Load hash from a scalar


Here is the code to accomplish your task.


use warnings;
use strict;

my $a = "a, 1, b, 2, c, 3";

$a =~ s/ //g; #delete spaces from $a

my @array = split(",",$a);

my %b = (
$array[0] => $array[1],
$array[2] => $array[3],
$array[4] => $array[5]
);

for (keys%b)
{
print "$_ => $b{$_}\n";
}

The output is:

c => 3
a => 1
b => 2

Hope it is useful.


-----Original Message-----
From: scooter [mailto:verma.abhinav@xxxxxxxxx]
Sent: Friday, March 28, 2008 12:00 PM
To: beginners@xxxxxxxx
Subject: Load hash from a scalar

I want to load the value from scalar variable to a hash

Example:
my $a = "a, 1, b, 2, c, 3";

Now, I need to create a hash %b, which holds values like
%b = { a => 1, b => 2, c => 3 };

TIA.


--
To unsubscribe, e-mail: beginners-unsubscribe@xxxxxxxx
For additional commands, e-mail: beginners-help@xxxxxxxx
http://learn.perl.org/

.

Relevant Pages