Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: Merging arrays

by jeffa (Bishop)
on Jun 27, 2013 at 20:00 UTC ( #1041087=note: print w/replies, xml ) Need Help??

in reply to Merging arrays

I am going to assume you have a typo in your second array definition (repeated 'acct4'). If that is a mistake then just use a hash slice:

my @array = qw( 111 222 333 444 555 888 ); my @array2 = qw( acct1 acct2 acct3 acct4 acct5 acct8 ); my %hash; @hash{@array} = @array2; use Data::Dumper; print Dumper \%hash;


(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re^2: Merging arrays
by smls (Friar) on Jun 27, 2013 at 20:13 UTC
    I am going to assume you have a typo in your second array definition

    Good point.
    If the double "acct4" item in the original code is not a typo but rather intended to demonstrate special handling for duplicate entries, then the OP would need to explain how exactly such cases should be handled.

    One possibility would be to strip all duplicate items from the list before merging (e.g. using the uniq function from List::MoreUtils). However, whether that is the correct thing to do would depend on the exact specification of the intended outcome in the general case.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1041087]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2018-02-22 13:50 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (293 votes). Check out past polls.