Splice Arrays

[mikawin]

Hello,

I have a set of arrays:
@Arr1 = (1..20);
@Arr2 = (16..41);
@Arr3 = (46..109);


I want to splice the above into 1 array without duplicates of the format:

@Combined = (1..41, 46..109)

How can I do this?

Thanks,
Mika

 

[MillerH]

Read perldoc: How can I remove duplicate elements from a list or array?

use strict;
use warnings;

my @arr1 = (1..20);
my @arr2 = (16..41);
my @arr3 = (46..109);

my @combined = do {
	my %seen;
	grep {! $seen{$_}++} @arr1, @arr2, @arr3;
};

print "@combined";

- Miller

 

[rharsh]

What have you tried? What are you having problems with?