Annuaire activeperl Fonction Basics

Boolean true si le répertoire a été ouvert ou faux succès si le répertoire n'a pas été ouvert avec succès. Il peut être fausse si le disque a un problème, tels que des secteurs défectueux. Voilà essentiellement ce qui est nécessaire pour ouvrir un répertoire; nous verrons un exemple de code sous peu. Le readdir (), la fonction d'informations du répertoire dans la mémoire a les noms des fichiers et des sous-répertoires immédiats du répertoire réel dans le disque. La fonction readdir () lit ce nom à partir des informations en mémoire.

En termes simples, la syntaxe de cette fonction est: mondirList = readdir (DIRHANDLE) Il lit les articles dans le répertoire d'une zone de la mémoire dans un tableau. Chaque élément du tableau est un nom d'élément du répertoire. DirList est le nom que vous donnez pour le tableau. DIRHANDLE est la poignée de répertoire utilisé pour ouvrir le répertoire (opendir ()). Le closedir () Fonction Lorsque vous êtes grâce à l'utilisation des informations de répertoire dans la mémoire, vous devez fermer le répertoire, avec la fonction de closedir ().

La syntaxe de fermer le répertoire est: closedir (DIRHANDLE) DIRHANDLE est la poignée de répertoire utilisé par opendir (), readdir () et closedir (). Un code Exemple Dans cet exemple de code, nous ouvrir le répertoire, directory3 (que vous avez créé avec votre système d'exploitation), puis de lire les articles dans le répertoire. Je l'utilise Windows XP SP2, Abyss Server X1 Web et ActivePerl. Dans mon système, il ya en fait six articles (non quatre comme vous pourriez le penser). Deux d'entre eux ne sont pas créés par moi.

Le premier point est un point unique et l'autre est un double point, à la fois pas été créé par moi. Lire le code suivant. Enregistrez-le avec le nom, temp.pl dans votre répertoire cgi-bin de votre serveur. use strict; print "Content-Type: text /html \\ n \\ n"; opendir (dir, "c: /directory1 /directory2 /directory3"); mondirList = readdir (dir); for (my $ i = 0; $ i {print $ DirList [$ i] ".} closedir (dir); Utilisez votre navigateur pour exécuter le fichier, temp.pl. Pour ce faire, vous pourriez avoir à taper quelque chose comme, http : //localhost:. 8000 /cgi-bin /temp.

pl à la barre d'adresse Mon serveur est dans mon ordinateur personnel, donc je dois http:. //localhost comme mon domaine fait, je dois 2 serveurs dans mon ordinateur et Abyss Web Serveur X1 est pas le serveur par défaut; voilà pourquoi je dois le ": 8000" dans l'adresse web Les première et deuxième lignes