Immer noch: Dateien ausschließen - ich schaffs nicht

[Christian Kruse]

Hallo,

Hier fehlt ein 'use strict;'

Durchsuchbare Inhalte/ Dateien

@files = ('*.shtml','*.htm',

Hier ein 'my'.

'*/*.shtml','*/*.htm',
'*/*/*.shtml','*/*/*.htm');

Nicht zu durchsuchende Dateien

$files_maynot = {
  'site/bestaetigung.shtml' => 1
};

Hier auch ein 'my'.

sub get_files

Das kann weg.

sub collect_files()
{
  my @collected_files;
  foreach my $path (@files)
  {
    foreach my $file (glob($path))
{
      push @collected_files unless $files_maynot->{$file};
    }
  }
}
  return @collected_files;
}

Das ist -- abgesehen von der Formatierung -- ok so.

Du musst den Array '@FILES' ja auch irgendwie fuellen, ne? Das
tut collect_files():

my @FILES = collect_files();

foreach $FILE (@FILES) ####### <==== Habs hier auch mit collected_files versucht!?
{
open(FILE,"$FILE");

open FILE, "<$FILE" or die $!;

@LINES = <FILE>;

{
  local $/;
  $line = <DAT>;
}

close(FILE);

close FILE or die $!;

$string = join(' ',@LINES);

Kann weg.

So sollte es laufen.

Es werden aber keine Dateien mehr durchsucht - das heißt ich
bekomm kein Suchergebnis, auch wenn Seiten zu den gesuchten
Begriffen vorhanden sind.

Kein Wunder -- du hattest den Array '@FILES' ja auch leer.

Gruesse,
 CK