Immer noch: Dateien ausschließen - ich schaffs nicht

[sunny]

Guten Morgen!

Schöne Diskussion habt ihr da ;)
Allerdings hatte ich schon zu Beginn erwähnt, dass ich keine Möglichkeit habe, Apache zu verwenden, bei uns läuft IIS!

Ich hab den Quellcode, den ich per SSI einbinden wollte mittlerweile direkt eingefügt.

Allerdings hab ich immer noch das Problem mit dem Ausschließen bestimmter Dateien. Kann mir da vielleicht jemand weiterhelfen?

Ich hab schon tausend (fast nicht übertrieben ;) Lösungen probiert, aber es will einfach nicht funktionieren.

Aktueller Stand:

Hier werden die Arrays definiert:

Durchsuchbare Inhalte/Dateien

@files=();
for my $FileType('*.html','*.shtml')
{for (0..16){
push @files,(('*/' x $_).$FileType)}
}

Nicht zu durchsuchende Dateien

@files_nicht = ('site/bestaetigung.shtml');

Hier werden die Dateien ausgewählt bevor sie durchsucht werden:

sub get_files
{
 @Files=();
 for(@files)
 {
  push @Files,glob($_);
 }
 %Files=();
 for (@Files)
  {
   $Files{$_}=1;
  }
 for(@files_nicht)
  {
   delete $Files{$_} if $Files{$_};
  }
}

Allerdings bekomme ich gar keine Suchergebnisse mehr, auch Dateien, die durchsucht werden sollen werden nicht in den Ergebnissen aufgelistet.

Das war der usprüngliche Code, mit dem alle Dateien durchsucht werden und mit dem ich auch korrekte Suchergebnisse bekomme:

sub get_files
{
 &bad_base unless (-e $basedir);
 chdir($basedir);
 foreach $file (@files)
 {
  # ls = ls $file;
  # @ls = split(/\s+/,$ls);
  @ls = glob $file;
  foreach $temp_file (@ls)
  {
   if (-d $file)
    {
    $filename = "$file$temp_file";
     if (-T $filename)
      {
       push(@FILES,$filename);
      }
    }
     elsif (-T $temp_file)
      {
       push(@FILES,$temp_file);
      }
    }
  }
}

Schön langsam weiß ich echt nicht mehr weiter, ich würd mich sehr über Hilfe freuen.

Liebe Grüße,
sunny