etorno para verificar se o diretório foi aberto ou não êxito. Se um diretório for aberto com êxito, em seguida, você pode continuar a ler o seu conteúdo e depois fechá-lo. Caso contrário, não há nenhum ponto de ler o seu conteúdo e fechá-lo. O código acima é melhor escrito da seguinte forma: use strict; print "Content-Type: text /html \\ n \\ n"; if (opendir (dir, "c: /directory1 /directory2 /directory3")) {mydirList = readdir (dir); for (o meu $ i = 0; $ i {print $ DIRlist [$ i] ".
} closedir (dir);} Vimos o básico do trabalho com diretórios Vamos parar aqui e continuar na próxima parte da série. . Chrys Para chegar a qualquer uma das partes desta série, basta digitar o título correspondente abaixo e meu nome, Chrys, na caixa de pesquisa da página e clique em Procurar (menu utilização se disponível): Noções básicas de função Diretório ActivePerl Criando e Diretório Exclusão em ActivePerl o diretório atual em ActivePerl