http://www.perlmonks.org?node_id=253604


in reply to Re: How to connect more arrays to a new array
in thread Find unique elements from multiple arrays

Perhaps a solution would be to use the values instead of the keys, but this means that all the data is copied about again, and so is highly unlikely to be the most efficient approach. 

my @new = do{local %h; @h{@a,@b,@c,@d} = (@a,@b,@c,@d); values %h};

[download]
Adapted from BrowserUk's code 

--
integral, resident of freenode's #perl

Replies are listed 'Best First'.
Re: How to connect more arrays to a new array
by Abigail-II (Bishop) on Apr 28, 2003 at 10:00 UTC
    That doesn't solve the problem at all. It fails for exactly the same reason: 
    $ perl -le '@a = (undef, ""); @u = do {@h {@a} = @a; values %h}; print
+ scalar @u'
1
$

    [download]

    Abigail

[reply]
[d/l]

In Section Seekers of Perl Wisdom