Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Работа с локальным и присоединенным ресурсом

Автор: vladimip 10.12.2002, 18:16

Программка ниже прекрасно работает с локальным каталогом (например C:\temp) и с каталогом CD (например D:\install). А присоединенные ресурсы, типа J:\project открывать не хочет. Естесственно все права на ресурс есть. Что, как и какой библиотекой нужно делать?
Спасибо.

sub SetDir {

my $dir = shift;

if ( !(opendir(DIR,$dir)) ) {
print "cannot open $dir\n";
return false;
}

chdir($dir);

my @files = readdir(DIR);

closedir(DIR);

return @files;

}

Автор: NightGoblin 11.12.2002, 08:04

Скорее всего, не срабатывают функции прямого доступа к директориям: opendir(), readdir() и closedir(). Попробуй сделать то же самое через glob() и -d.

Код


sub SetDir {
    my ($dir) = shift;
    my @files;

    unless (-d $dir) {
        print ("Directory $dir does not exist\n");
        return (undef);
    }

    unless (chdir ($dir)) {
        print ("Cannot change dor to $dir\n");
        return (undef);
    }

    @files = glob ("*");

    return (@files);
}