datein in verzeichnis durchlaufen - #61904 (Allgemeines zu Perl)

esskar

2006-01-15 02:06

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=renee,14.01.2006, 20:23]my @files = grep{-f $verzeichnis.'/'.$_}readdir(DIR);[/quote]
sowas ist mir zu
1. speicher intensiv
2. langsam

besser

Code: (dl )

opendir(DIR,$verzeichnis) or die $!;
while(my $filename = readdir DIR)) {
   my $file = $verzeichnis . '/' . $filename;
   next unless -f $file;
   # durchsuchen
}
closedir DIR;

\n\n