Хостинг > Бесплатный хостинг

PostgreSQL

(1/1)

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;
--- Конец цитаты ---

Навигация

[0] Главная страница сообщений