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:[EMAIL PROTECTED]
Sent: Friday, March 28, 2008 12:00 PM
To: [email protected]
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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
