Программирование > Perl

Работа с директориями

(1/1)

Yaroslav:
Есть программа, но она работает только в текущей директории, что нужно, где и как нужно указать нужную дир?

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:
А так не получается?

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

lodevar:
Или так:

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

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

Навигация

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