Forum Webscript.Ru
Программирование => Perl => Тема начата: DmitryP от 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);