Also, Entschuldigung, wenn ich um Hilfe gebeten habe, wird nicht wieder vorkommen ...

Nun zu den Skripts, also von Struppi :
01: #!/usr/bin/perl -w
02: use strict;
03: use File::Find;
04:
05: my $muster = '\.xls';
06: my @files;
07:
08: find(\&dateisuche, "./");
09:
10: sub dateisuche {
11: return unless /$muster$/i;
12:
13: push @files, $_;
14: print "$_\n";
15: }

bei print "$_\n";

listet PERL alle Dateien, die in meinem Verzeichnis liegen und nicht die dem $muster entsprechende '\.xls'.

ENTSCHULDIGUNG !!!!!!!!!!!!!
Es ist halt blöd, natürlich danke ich Euch, aber darf man hier nicht sagen, dass etwas nicht geht, ich habe das Skript so wie es ist in eine struppi.pl kopiert und er macht nicht dass, was ich möchte.

Wenn ich um weitere Hilfe nachfrage, bekommt man hier einen auf den Deckel, sorry, ich gehe mit meinen Leuten immer anders um, und frage nach, wo das Problem liegt.

Nun ja, also Skript geht nicht, Entschuldigung, das ich hier war und um Hilfe gebeten habe, werde wohl lieber nicht meht hier vorbeischauen ...

Trotzdem einen schönen Tag,
Claudia