Arrays mit "grep" filtern

[Kurt]

Und ... wer keine RegExes mag kommt mit folgender Form besser zurecht:

  

> @exclude=(6..10);  
> @array1=(1..10);  
> @array2=(10,5,5,10);  
>   
> $,="\t";$\="\n";  
> print @array1;  
> print @array2;  
> #: 1 2 3 4 5 6 7 8 9 10  
> #: 10 5 5 10  
>   
>   
> foreach my $exclude (@exclude){  

 @array1=grep {$_ ne $exclude} @array1;  
 @array2=grep {$_ ne $exclude} @array2;  

>  }  
>   
>   
> print @array1;  
> print @array2;  
> #: 1 2 3 4 5  
> #: 5 5  

Kurt