Hi
Habe den Teil bis jetzt in etwa so gelöst.
das der code nie gelaufen ist hat uns ja schon siechfred gezeigt...
foreach my $name (@array3){
foreach my $i @array1{
if($i !~ m/^$typ/){
push(@namen1_neu,$i);
}
}
foreach my $i @array2{
if($i !~ m/^$typ/){
push(@namen2_neu,$i);
}
}
}
aber wieso $typ steht wo $name stehen sollte ist unklar.
Auch prüfst du nicht auf Identität sondern auf enthaltensein.
Kurt