Immer noch: Dateien ausschließen - ich schaffs nicht

[sunny]

Also erstmal danke für die viele Hilfe.

Leider bekomm ich es trotzdem nicht hin.

Habs jetzt so:

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;
}

my @FILES = collect_files();

...

foreach $FILE (@FILES)
{
open FILE, "<$FILE" or die $!;
{
  local $/;
  $line = <DAT>;
}
close FILE or die $!;
$string =~ s/\n//g;

Gehört da nicht noch ne "}" ? Funktioniert aber auch damit nicht.

Fehlermeldung: Script produced no output

Schön langsam kenn ich mich überhaupt nicht mehr aus, sorry :(