Opened by Kogge at 2004-06-17 19:11
Code: (dl
)
1
2
3
4
5
$dir = 'datas';
opendir DIR, $dir or die "Can't open $dir: $!";
my @files = grep ! /\.html$|\.csv$/, readdir DIR;
closedir DIR;
Wenn Du $dir spezifizierst (und das tust Du ja) werden die Unterverzeichnisse ignoriert.