Redundanzen aus einer Liste entfernen

[Klaus Mock]

Hallo,

Sortiere die Liste ...prüfe ...diese Liste, ob das Element vor dem zu überprüfenden Element in diesem
enthalten ist (regex oder substr ...Wenn keine Übereinstimmung vorliegt, übernimmst Du das Element.

Genau dies macht ja mein Konstrukt.

hmm, laß es mich ausformulieren:
<code>
my $i=0;
@include = sort @include;
while($i<scalar @include) {
   if(($i>0) and ($include[$i] =~ /$include[$i-1]/)) {
      splice(@include,$i,1);
      }
   else {
      $i++;
      }
   }
</code>
Na, sieht ja schon viel netter aus, oder?

Grüße
  Klaus