Tags: perl5 Ähnliche Threads
123
opendir(DIR, $scanDir) || warn "can't open $scanDir: $!\n"; @files = readdir(DIR); closedir(DIR);
@files = grep /-l\.html$/,readdir(DIR); # findet alle *-.html