Forum Webscript.Ru

Программирование => Perl => Тема начата: Yaroslav от 27 Марта 2001, 15:56:37

Название: Работа с директориями
Отправлено: Yaroslav от 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 от 27 Марта 2001, 16:08:40

А так не получается?

$dirname="www/articles/mydir";
...
while(defined($filename = glob("$dirname/*.rek")))

Название: Работа с директориями
Отправлено: lodevar от 27 Марта 2001, 16:31:28

Или так:

$path="../WWW/articles";
opendir(DIR,$path);
@filename = grep {/\\.html$/} readdir(DIR);
closedir(DIR);

foreach $str (@filename)
{
 ... делаем что-то с файлами
}