remove elements from array 1

[nychris]

I have two arrays, they both include the names of animals.

@animals = qw/cat dog beaver frog elephant/;
@exclude = qw/beaver frog/;

How can I remove each element in @exclude from @animals? I want @animals to consist of "cat, dog, elephant" after the other elements are removed.

Thanks!

--
Chris
RHCE, SCSA, AIX5L, LPIC, CNE, CCNA, MCSE

 

[KevinADC]

one way:

@animals = qw/cat dog beaver frog elephant/;
@exclude = qw/beaver frog/;
%exclude =  map {$_,$_} @exclude;
@animals = grep {!exists($exclude{$_})} @animals; 
print "$_\n" for @animals;

 

[nychris]

very nice, thanks! I don't quite understand how it works though, I have to read more on the map function.

--
Chris
RHCE, SCSA, AIX5L, LPIC, CNE, CCNA, MCSE

 

[KevinADC]

this:

%exclude =  map {$_,$_} @exclude;

is very similar to this and produces the same results in this case:

for (@exclude) {
   $exclude{$_}=$_;
}

read up on the map function it is very handy.