Si un directorio se abre correctamente, entonces se puede proceder a leer su contenido y luego cerrarla. De lo contrario no tiene sentido leer su contenido y cerrándola. El código anterior es mejor escrito de la siguiente manera: use strict; print "Content-Type: text /html \\ n \\ n"; si (opendir (dir, "c: /directory1 /directorio2 /directory3")) {midirList = readdir (dir); para (mi $ i = 0; $ i {print $ DirList [$ i] ".} closedir (dir);} Hemos visto lo básico de trabajar con los directorios Detengámonos aquí y continuar en la siguiente parte de la serie. .
Chrys Para llegar a cualquiera de las partes de esta serie, sólo tienes que escribir el título correspondiente a continuación y mi nombre, Chrys, en el cuadro de búsqueda de esta página y haga clic en Buscar (menú de uso si está disponible): Conceptos básicos de función Directorio ActivePerl Creación y Directorio de eliminación de en ActivePerl El Directorio actual en ActivePerl