Annuaire activeperl Fonction Basics

dans le code sont utiles lorsque votre sortie est le navigateur Le troisième ligne ouvre le répertoire, directory3 de la.. chemin, c:.. /directory1 /directory2 /directory3 La boucle for affiche les six éléments de l'annuaire dans le tableau Nous avons créé quatre pièces directory3 Dans votre système, il ya probablement six éléments, trop Le premier est un point.. . Le second est un double point. Dans mon système, les deux suivantes sont les deux fichiers et les deux derniers sont les deux répertoires. La dernière instruction ferme le répertoire. La sortie de mon navigateur, est,. ..

fichierA.txt fileB .txt dirA DGDIR Que faire si le répertoire n'a pas ouvert? Le répertoire ne peut pas ouvrir si le disque a des problèmes, par exemple le disque pourrait avoir des secteurs défectueux. Donc, vous devriez toujours vérifier si le répertoire a été ouvert avec succès ou non. La fonction opendir () ouvre un répertoire et reviendrait vrai si le répertoire a été ouvert ou faux succès si le répertoire n'a pas été ouvert avec succès. Vous utilisez cette valeur de retour pour vérifier si le répertoire a été ouvert avec succès ou non.

Si un répertoire est ouvert avec succès, alors vous pouvez continuer à lire son contenu et puis fermez-le. Sinon, il est inutile de lire son contenu et de sa fermeture. Le code ci-dessus est mieux écrit comme suit: use strict; print "Content-Type: text /html \\ n \\ n"; si (opendir (dir, "c: /directory1 /directory2 /directory3")) {mydirList = readdir (dir); for (my $ i = 0; $ i {print $ DirList [$ i] ".} closedir (dir);} Nous avons vu les bases du travail avec des répertoires Arrêtons-nous ici et nous continuons dans la prochaine partie de la série. .

Chrys Pour arriver à l'une des parties de cette série, il suffit de taper le titre correspondant ci-dessous et mon nom, Chrys, dans le champ de recherche de cette page puis cliquez sur Rechercher (utiliser le menu si disponible): Répertoire ActivePerl Basics fonction de création et de répertoire Suppression ActivePerl dans le répertoire courant dans ActivePerl