PostgreSQL

[Realtor from Moscow]

Как-то была подобная фишка. Смотря какой у тебя Перл стоит.
Попробуй другой синтаксис вызова функций:
opendir MYDIR, $dir_path;
closedir MYDIR;

И еще, надо выкинуть файлы . и ..  
Например вот так: @file_name_array=grep(!/^\\.\\.?$/, readdir MYDIR);

[Haze]

А ты сначала посмотри какие файлы он у тебя находит, а потом и спрашивай!

[DmitryP]

Realtor from Moscow (01-08-2001 22:40):
Как-то была подобная фишка. Смотря какой у тебя Перл стоит.
Попробуй другой синтаксис вызова функций:
opendir MYDIR, $dir_path;
closedir MYDIR;

И еще, надо выкинуть файлы . и ..  
Например вот так: @file_name_array=grep(!/^\\.\\.?$/, readdir MYDIR);

СПАСИБО ОГРОМНОЕ. ЗАРАБОТАЛО, я от счастья на седьмом небе.
Кому интересно, ниже 100% рабочий скрипт:

opendir (MYDIR, "$dirname");
print "Content-type:text/html\\n\\n";
@allfiles=grep(!/^\\.\\.?$/, readdir (MYDIR));
closedir (MYDIR);
foreach $file(@allfiles){
open(FILE,"$dirname/$file");
while()
{
print;
}
close(FILE);
}
exit;