use Data::Dumper;
my @names = qw ( web email stuff );
my @values = qw( 33 44 55 );
my $ref = { map { $names[$_] => $values[$_] } (0..$#names) };
print Dumper $ref;
(It's still not as clean as using the hash slice, IMO, but if that's what you want...)
-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com
||
"You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important
| [reply] [d/l] |
Thanks for that, that's it.
Don't worry! I have no intention of leaving it in the code, and will probably opt for the subroutine method anyway, I do generally work with half an eye on maintainability.
What REALLY bugged me was not being able to figure out HOW to shortcut it even if I wasn't going to use the shortcut in the end product...There might be 8 WTDI in this case but i knew there was a shorter WTDI somewhere....
| [reply] |