Arrays bearbeiten

[Kurt]

  
@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 {! /^$exclude$/} @array1;  
 @array2=grep {! /^$exclude$/} @array2;  
 }  
  
  
print @array1;  
print @array2;  
#: 1 2 3 4 5  
#: 5 5  

wenns auf die Performance ankommt könnte man sich überlegen einen einzigen RegEx ausdruck aus @exclude zu basteln, sowas wie join("|",@exclude)

danke für die Aufgabe am morgen... :)