Re^3: merging anonymous arrays

in reply to Re^2: merging anonymous arrays
in thread merging anonymous arrays

since there is no way how to refer to the arrays

There is if you make them arguments to an on-the-fly subroutine.

$ perl -E '
> @key = sub {
>     map { $_[ 0 ]->[ $_ ], $_[ 1 ]->[ $_ ] }
>     0 .. $#{ $_[ 0 ] }
>     }->( [ qw{ A B C } ], [ qw{ 1 2 3 } ] );
> say qq{@key};'
A 1 B 2 C 3
$
[download]

A little less esoteric than ColonelPanic's clever solution ++.

Cheers,

JohnGG

In Section Seekers of Perl Wisdom