Hallo zusammen,

meine Perl-Kenntnisse sind gerade 1 Woche alt, ich lese Verzeichnisse aus, klappt auch gut.

Aber jetzt möchte mein Chef noch eine Suche haben :

Habe darum folgendes eingebaut :

$muster = "*.xls";

find(\&dateisuche, "c:/verz1/test");

sub dateisuche {
if ( $File::Find::name =~ /^$muster$/ ) {
push(@files, $_);
print $_;
}
return;
}

Alle Beispiele im Web sind nach diesem Schema, aber bei mir geht es nicht !!!!

was ist falsch, ich probiere seit gestern an dieser Suche rum und werde fast wahnsinnig.

Mein skript steht nicht unter c:/verz1/test, könnte das eine Rolle spielen.

Bin über jeden Tipp dankbar !!!

VG Claudia