Re: Declare and slice-initialize hash in one statement?

You could use this

Update: Corrected typo (s/0/$_/)

sub zip { map{ $_[0][$_], $_[1][$_] } 0 .. $#{$_[0]} }

my %hash = zip [ 1 .. 3 ], [ 'a' .. 'c' ];

my @a = 1 .. 3; 
my @b = 'a' .. 'c';
my %hash = zip \@a, \@b;
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re: Declare and slice-initialize hash in one statement? Download Code

Replies are listed 'Best First'.
Re^2: Declare and slice-initialize hash in one statement? by xdg (Monsignor) on Oct 27, 2005 at 16:51 UTC
Which is also available in List::MoreUtils, with no referencing needed. `use strict; use List::MoreUtils qw(zip); my @keys = (1..3); my @values = (4..6); my %hash = zip @keys, @values;` [download] -xdg Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply] [d/l]
Re^3: Declare and slice-initialize hash in one statement? by BrowserUk (Patriarch) on Oct 27, 2005 at 17:06 UTC
Also called `mesh()` The downside of it's use of prototypes is that it precludes the use of inline anonymous array constructors: `use List::MoreUtils qw[zip]; my %hash = zip [1..3],['a'..'c']; Type of arg 1 to main::zip must be array (not single ref constructor) +at Type of arg 2 to main::zip must be array (not single ref constructor) +at` [download] In this case, trading the avoidance of two backslashes for the need to declare and initilise temporary arrays, or substitute the unweildy `use List::MoreUtils qw[zip]; my %hash = zip @{[1..3]},@{['a'..'c']};` [download] is not such a good trade. Of course it does handle more than two arrays, but that is a fairly rare usage. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]
Re^4: Declare and slice-initialize hash in one statement? by Roy Johnson (Monsignor) on Oct 27, 2005 at 17:25 UTC
Defeat troublesome prototypes by calling functions with `&`. Order your ampersand today! (Some parentheses required.) `my %hash = &zip([1..3],['a'..'c']);` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l] [select]
Re^5: Declare and slice-initialize hash in one statement? by BrowserUk (Patriarch) on Oct 27, 2005 at 17:36 UTC
Re^6: Declare and slice-initialize hash in one statement? by Roy Johnson (Monsignor) on Oct 27, 2005 at 17:46 UTC
Some notes below your chosen depth have not been shown here
Re^2: Declare and slice-initialize hash in one statement? by Juerd (Abbot) on Oct 27, 2005 at 18:56 UTC
Perl 6 changes: `zip` is built in!. There is an infix operator for zipping too: `¥`. The ASCII equivalent, if you can't or won't type ¥, is: `Y`. zip doesn't take references, but multiple lists. These are separated by semicolons (within parens!), or are specified with multiple `<==` pipes. Lists can be initialized with a list of pairs, but fashioned key/value lists still work. Examples: `my %hash = zip(@keys; @values); my %hash = zip(<== @keys <== @values); my %hash = @keys Ą @values; my %hash = @keys Y @values;` [download] Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }	[reply] [d/l]