Fonction Perl Mkdir

«La fonction mkdir () est une fonction intégrée de Perl pour créer un répertoire en définissant les bits d'autorisation. C'est une fonction utile lorsqu'elle nécessite le stockage des données en créant un répertoire et en faisant sécuriser les données en définissant l'autorisation d'accès. Les utilisations de cette fonction ont été montrées dans ce tutoriel en utilisant plusieurs scripts Perl."

Syntaxe

La syntaxe de la fonction mkdir () est donnée ci-dessous.

booléen mkdir (répertoire, mode)

La fonction peut prendre deux valeurs d'argument. Le premier argument est obligatoire et le nom du nouveau répertoire est passé dans cet argument. Le deuxième argument est facultatif, et les bits d'autorisation pour le répertoire sont définis par cet argument. La fonction renvoie vrai sur le succès et renvoie False en échec.

Différentes utilisations de la fonction mkdir () ont été montrées dans la partie suivante du tutoriel.

Exemple-1: créer un répertoire

Créez un fichier perl avec le script suivant qui créera un répertoire sur l'emplacement actuel ou imprimera un message d'erreur s'il n'est pas en mesure de créer le répertoire. Si le répertoire nommé «test»Existe déjà dans l'emplacement actuel ou il n'y a pas d'autorisation de créer un répertoire sur l'emplacement actuel, puis un message d'erreur sera imprimé; Sinon, le répertoire sera créé.

$ dir_name = "test";
# Créer le répertoire
Mkdir ($ dir_name)
# Message d'erreur d'impression
ou mourir "Impossible de créer un répertoire $ dir_name.\ n ";

Exécutez les commandes suivantes pour exécuter le code Perl et vérifier la liste de répertoire actuelle.

$ perl mkdir1.PL
$ ls

Sortir

La sortie suivante apparaîtra si le répertoire est créé avec succès.

Exemple-2: Créez un répertoire s'il n'existe pas

Créez un fichier perl avec le script suivant qui créera un répertoire si le répertoire n'existe pas dans l'emplacement actuel en utilisant la fonction mkdir (). Le nom du répertoire sera tiré de l'utilisateur, et l'option -e avec le nom du répertoire a été utilisée dans la condition «IF» pour vérifier si le répertoire existe déjà dans l'emplacement actuel ou non. Si le nom du répertoire tiré de l'utilisateur n'existe pas à l'emplacement actuel, le répertoire sera créé et un message de réussite sera imprimé après l'exécution du code.

Imprimez "Entrez le nom du répertoire:";
#Take le nom du répertoire de l'utilisateur
$ dir_name =;
#Remove Newline
chomp ($ dir_name);
#Check Le répertoire existe ou non
if (-e "$ dir_name")

Message #print si le répertoire existe
Imprimer "Le répertoire existe déjà.\ n ";

autre

#Create le répertoire
Mkdir ($ dir_name)
Message d'erreur #print
ou mourir "Impossible de créer un répertoire $ dir_name.\ n ";
# Print le message de réussite
Imprimer "Répertoire créé avec succès.\ n ";

Exécutez les commandes suivantes pour exécuter le code Perl et vérifier la liste de répertoire actuelle.

$ perl mkdir2.PL
$ ls

Sortir

Selon la sortie suivante, le nom du répertoire tiré de l'utilisateur existe à l'emplacement actuel pour la première exécution. Le nom du répertoire tiré de l'utilisateur n'existe pas dans l'emplacement actuel pour la deuxième exécution. Ainsi, le répertoire a été créé avec succès et le message de réussite a été imprimé.

Exemple-3: Créez un répertoire avec les bits d'autorisation

Le deuxième argument de la fonction mkdir () a été utilisé pour définir les bits d'autorisation du répertoire qui seront créés par cette fonction. Créez un fichier Perl avec le code suivant qui créera un nom de répertoire pris à l'utilisateur avec permission, «0744», si le répertoire n'existe pas dans l'emplacement actuel. Le Fonction oct () a été utilisé dans le code pour convertir les bits d'autorisation de la valeur de chaîne à la valeur du nombre.

Imprimez "Entrez le nom du répertoire:";
#Take le nom du répertoire de l'utilisateur
$ dir_name =;
#Remove Newline
chomp ($ dir_name);
#Check Le répertoire existe ou non
if (-e "$ dir_name")

Message #print si le répertoire existe
Imprimer "Le répertoire existe déjà.\ n ";

autre

$ permission = "0744";
#Create le répertoire avec permission
mkdir ($ dir_name, oct ($ permission))
Message d'erreur #print
ou mourir "Impossible de créer un répertoire $ dir_name.\ n ";
# Print le message de réussite
Imprimer "Répertoire créé avec succès.\ n ";

Exécutez les commandes suivantes pour exécuter le code Perl et vérifier la liste de répertoire actuelle.

$ perl mkdir3.PL
$ ls -l

Sortir

Selon la sortie suivante, le répertoire nommé «testdir«N'existait pas dans l'emplacement actuel auparavant, et le répertoire a été créé avec succès après avoir exécuté le code. La sortie du «ls -l»La commande montre que le propriétaire du répertoire a toutes les autorisations, et le groupe et les autres utilisateurs ont uniquement l'autorisation de lecture qui a été définie par les autorisations, 0744.

Exemple-4: Créez un répertoire basé sur le chemin du répertoire

Créez un fichier perl avec le code suivant qui créera un répertoire basé sur le chemin donné si le répertoire n'existe pas. L'option -D a été utilisée avec le chemin du répertoire dans la condition «IF» pour vérifier si le répertoire existe à l'emplacement défini ou non. Si le chemin du répertoire n'existe pas, alors un message d'erreur sera affiché.

#Set le chemin du répertoire
$ dir_path = "/ home / fahmida / perl / temp / mydir";
#Check Le répertoire existe ou non
if (-d "$ dir_path")

Message #print si le répertoire existe
Imprimer "Le répertoire existe déjà.\ n ";

autre

Mkdir ($ dir_path)
Message d'erreur #print
ou mourir "Impossible de créer un répertoire $ dir_path.\ n ";
# Print le message de réussite
Imprimer "Répertoire créé avec succès.\ n ";

Exécutez les commandes suivantes pour exécuter le code Perl, accédez au chemin du répertoire et vérifiez si le répertoire est créé ou non.

$ perl mkdir3.PL
$ cd temp
$ ls

Sortir

Selon la sortie suivante, le «mydir«Le répertoire n'existait pas auparavant sur le chemin défini, et le répertoire a été créé avec succès.

Conclusion

Les façons de créer un répertoire avec ou sans les bits d'autorisation en utilisant la fonction mkdir () ont été montrées dans ce tutoriel. J'espère que ce tutoriel aidera le nouvel utilisateur de Perl à connaître correctement les utilisations de la fonction MKDIR () dans Perl.