Сообщения

1

Бесплатный хостинг / PostgreSQL

« : 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;

2

Perl / Как написать в файл содержимое неск-ких файлов из каталога?

« : 01 Августа 2001, 21:30:53 »

Помогите новичку в Перл. Написал скрипт целью которого является вывод на экран содержимого всех файлов каталога. Скрипт работает но только выводит кроме содержимого файлов названия всех файлов даже не из требуемого каталога да еще и какие-то непонятные значки.
Пример:
‰ 
. ‚p0 .. <Љ  a.txt _а=Љ Ш
be.txt а ‚p0 
. Kф/ .. ћp0   answer.html ѓp0 
privet
дорогой!

А вот сам скрипт:
opendir(DIR,$dirname);
print "Content-type:text/html\\n\\n";
while (defined($file=readdir(DIR))) {
open(FILE,"$dirname/$file");
while()
{
print;
}
close(FILE);
}
closedir(DIR);