Forum Webscript.Ru

Хостинг => Бесплатный хостинг => Тема начата: Realtor from Moscow от 01 Августа 2001, 22:40:48

Название: PostgreSQL
Отправлено: Realtor from Moscow от 01 Августа 2001, 22:40:48

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

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

Название: PostgreSQL
Отправлено: Haze от 01 Августа 2001, 22:41:09

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

Название: PostgreSQL
Отправлено: DmitryP от 02 Августа 2001, 18:53:51

Цитировать

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;