Архив форумов ЦИТФорума

[Robot]

При пользовании встроенной функцией Perl
readdir - в ней содержатся все файлы в каталоге, а также подкаталоги и(!) "." и ".."
Так вот - как отличить собственно файл от этих
всех подкаталогов и мнимых точек перехода на
верхний и нижний уровень?
Пытался задать условие на предмет попытки чтения всех элементов массива, тоесть если удасться открыть open() - то это файл - не удасться - не файл...в Win работает такой метод, но Unix открывает даже каталоги...как быть?? Хотелось бы сделать всё универсально.
/ROBOT/

[ugz]

my $dirname = 'xxxx';

opendir(DH, $dirname);

for(readdir(DH))
{
next if /^\.\.?$/;
if(-d "$dirname/$_")
{
# Это каталог
}
elsif(-f "$dirname/$_")
{
# Это файл
}
}

closedir(DH);

По другому вроде бы никак. По _имени_ файл от каталога не отличить.