opendir и readdir в перле
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
opendir и readdir в перле - 2005-07-31 10:03:11
|
|
|
Вася - Мега Отец
Сообщений: 109
Оценки: 0
Присоединился: 2005-01-10 19:58:49
|
Здравствуйте.
Нижеприведенный скрипт все время выводит ошибку Failed 1.1, следовательно он почему то не может открыть директорию $files[$i]. Может быть так как в readdir первые директории - это . и .. ? Подскажите пожалста.
=====================================================================
opendir(DF_DIR, $dir) || die "Directory $dir not found.\n";
@files = readdir(DF_DIR);
foreach (@files)
{
opendir(DFF_DIR, $files[$i]) || print "Failed 1.1\n";;
$i++;
@dfd_files = readdir(DFF_DIR) || print "Failed 1.2\n";
while(<@dfd_files>)
{
if (@_ eq ("report.txt"))
{
write();
}
}
}
=====================================================================
|
|
|
|
|
opendir и readdir в перле - 2005-07-31 15:15:07
|
|
|
ventilyator
Сообщений: 423
Оценки: 0
Присоединился: 2004-10-28 15:46:45
|
вот те
opendir(DIR, $dirname);
while(defined($filename = readdir(DIR))) {
next if $filename =~ /^\.+$/;
# делаем что-то с $filename
}
closedir DIR;
вроде бы так
обрати внимание как используица readdir тут и как у тебя
==================================
обрати внеманье на свою конструкцию
foreach (@files)
{
opendir(DFF_DIR, $files[$i])…
$i++;
у тебя $i не определено на первой итерации
|
|
|
|
|
opendir и readdir в перле - 2005-07-31 19:31:44
|
|
|
Вася - Мега Отец
Сообщений: 109
Оценки: 0
Присоединился: 2005-01-10 19:58:49
|
Нет, $i определено в самом начале как 0…
|
|
|
|
|
|
