Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Не получили
письмо с кодом активации
?
1 час
1 день
1 неделя
1 месяц
Навсегда
Новости:
Начало
Помощь
Поиск
Календарь
Вход
Регистрация
Forum Webscript.Ru
»
Программирование
»
Perl
»
Работа с директориями
« предыдущая тема
следующая тема »
Печать
Страницы: [
1
]
Вниз
Автор
Тема: Работа с директориями (Прочитано 2246 раз)
0 Пользователей и 1 Гость просматривают эту тему.
Yaroslav
Фанат форума
Старожил
Сообщений: 323
+0/-0
0
Работа с директориями
«
:
27 Марта 2001, 15:56:37 »
Есть программа, но она работает только в текущей директории, что нужно, где и как нужно указать нужную дир?
print "Content-type: text/html
";
print "
";
while ( defined($filename = glob("*.rek")) ) {
open (WORDSLIST, $filename) || die "Not file: $!";
@file=
;
close (WORDSLIST) || die "File: $! ne zakrit";
print "Предприятие: $file[0]
";
print "WEB:
$file[2]
";
print "E-mail:
$file[1]
";
print "Tel: $file[5]
";
print "Fax: $file[6]
";
print "Описание: $file[9]";
print $file[10];
print $file[11];
print $file[12];
print "$file[13]
";
}
Записан
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили \"Титаник\".
lodevar
Сеньор-Помидор
Глобальный модератор
Ветеран
Сообщений: 757
+0/-0
2
Работа с директориями
«
Ответ #1 :
27 Марта 2001, 16:08:40 »
А так не получается?
$dirname="www/articles/mydir";
...
while(defined($filename = glob("$dirname/*.rek")))
Записан
С наилучшими пожеланиями. LODEVAR
lodevar
Сеньор-Помидор
Глобальный модератор
Ветеран
Сообщений: 757
+0/-0
2
Работа с директориями
«
Ответ #2 :
27 Марта 2001, 16:31:28 »
Или так:
$path="../WWW/articles";
opendir(DIR,$path);
@filename = grep {/\\.html$/} readdir(DIR);
closedir(DIR);
foreach $str (@filename)
{
... делаем что-то с файлами
}
Записан
С наилучшими пожеланиями. LODEVAR
Печать
Страницы: [
1
]
Вверх
« предыдущая тема
следующая тема »
Forum Webscript.Ru
»
Программирование
»
Perl
»
Работа с директориями
Sitemap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28