Opened by Kogge at 2004-06-17 19:11
So sollte es funktionieren
Code: (dl
)
1
2
3
4
5
$dir = 'datas';
opendir DIR, $dir or die "Can't open $dir: $!";
my @files = grep ! /\.html$/, readdir DIR;
closedir DIR;