use strict; use warnings; my $a = 'a1:a2:a3=foo'; my ($key, $val) = split /=/, $a, 2; $key =~ s/:/}{/g; my %hash; eval "\$hash{$key}=\"$val\"";
-QM
--
Quantum Mechanics: The dreams stuff is made of
In reply to Re: List Values As Multidimensional Hash Keys
by QM
in thread List Values As Multidimensional Hash Keys
by joule
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |