Función perl mkdir

"La función mkdir () es una función incorporada de Perl para crear un directorio estableciendo los bits de permiso. Es una función útil cuando requiere almacenar datos creando un directorio y asegurando los datos estableciendo el permiso de acceso. Los usos de esta función se han mostrado en este tutorial utilizando múltiples scripts de Perl."

Sintaxis

La sintaxis de la función mkdir () se da a continuación.

boolean mkdir (directorio, modo)

La función puede tomar dos valores de argumentos. El primer argumento es obligatorio, y el nombre del nuevo directorio se pasa en este argumento. El segundo argumento es opcional, y los bits de permiso para el directorio están establecidos por este argumento. La función devuelve verdadero al éxito y devuelve falso en la falla.

Se han mostrado diferentes usos de la función mkdir () en la siguiente parte del tutorial.

Ejemplo-1: crear un directorio

Cree un archivo PERL con el siguiente script que creará un directorio en la ubicación actual o imprima un mensaje de error si no puede crear el directorio. Si el directorio nombrado "prueba"Ya existe en la ubicación actual o no hay permiso para crear un directorio en la ubicación actual, entonces se imprimirá un mensaje de error; de lo contrario, se creará el directorio.

$ dir_name = "test";
# Crea el directorio
mkdir ($ dir_name)
# Mensaje de error de impresión
o morir "No se puede crear el directorio $ dir_name.\norte";

Ejecute los siguientes comandos para ejecutar el código PERL y verifique la lista actual de directorio.

$ perl mkdir1.por favor
$ LS

Producción

La siguiente salida aparecerá si el directorio se crea correctamente.

Ejemplo-2: cree un directorio si no existe

Cree un archivo Perl con el siguiente script que creará un directorio si el directorio no existe en la ubicación actual utilizando la función mkdir (). El nombre del directorio se tomará del usuario, y la opción -e con el nombre del directorio se ha utilizado en la condición "si" para verificar si el directorio ya existe en la ubicación actual o no. Si el nombre del directorio tomado del usuario no existe en la ubicación actual, se creará el directorio y se imprimirá un mensaje de éxito después de ejecutar el código.

imprimir "Ingrese el nombre del directorio:";
#Nombre del directorio del usuario del usuario
$ dir_name =;
#Remove Newline
Chomp ($ dir_name);
#Chek El directorio existe o no
if (-e "$ dir_name")

#Mensaje de huella si existe el directorio
Directorio de impresión "ya existe.\norte";

demás

#Cree el directorio
mkdir ($ dir_name)
#Mensaje de error de huella
o morir "No se puede crear el directorio $ dir_name.\norte";
#Imprima el mensaje de éxito
Directorio de impresión "creado con éxito.\norte";

Ejecute los siguientes comandos para ejecutar el código PERL y verifique la lista actual de directorio.

$ perl mkdir2.por favor
$ LS

Producción

Según la siguiente salida, el nombre del directorio tomado del usuario existe en la ubicación actual para la primera ejecución. El nombre del directorio tomado del usuario no existe en la ubicación actual para la segunda ejecución. Entonces, el directorio se ha creado con éxito, y el mensaje de éxito se ha imprimido.

Ejemplo-3: cree un directorio con los bits de permiso

El segundo argumento de la función mkdir () se ha utilizado para establecer los bits de permiso del directorio que será creado por esta función. Cree un archivo Perl con el siguiente código que creará un nombre de directorio tomado del usuario con permiso, "0744", si el directorio no existe en la ubicación actual. El Función Oct () se ha utilizado en el código para convertir los bits de permiso del valor de cadena al valor de número.

imprimir "Ingrese el nombre del directorio:";
#Nombre del directorio del usuario del usuario
$ dir_name =;
#Remove Newline
Chomp ($ dir_name);
#Chek El directorio existe o no
if (-e "$ dir_name")

#Mensaje de huella si existe el directorio
Directorio de impresión "ya existe.\norte";

demás

$ permiso = "0744";
#Cree el directorio con permiso
mkdir ($ dir_name, oct ($ permiso))
#Mensaje de error de huella
o morir "No se puede crear el directorio $ dir_name.\norte";
#Imprima el mensaje de éxito
Directorio de impresión "creado con éxito.\norte";

Ejecute los siguientes comandos para ejecutar el código PERL y verifique la lista actual de directorio.

$ perl mkdir3.por favor
$ ls -l

Producción

Según la siguiente salida, el directorio nombrado "testdir"No existía en la ubicación actual antes, y el directorio se creó con éxito después de ejecutar el código. La salida del "LS -L"El comando muestra que el propietario del directorio tiene todos los permisos, y el grupo y otros usuarios tienen el permiso de lectura solo que los bits de permisos, 0744.

Ejemplo-4: cree un directorio basado en la ruta del directorio

Cree un archivo Perl con el siguiente código que creará un directorio basado en la ruta dada si el directorio no existe. La opción -d se ha utilizado con la ruta del directorio en la condición "si" para verificar si el directorio existe en la ubicación definida o no. Si la ruta del directorio no existe, se mostrará un mensaje de error.

#Set la ruta del directorio
$ dir_path = "/home/fahmida/perl/temp/mydir";
#Chek El directorio existe o no
if (-d "$ dir_path")

#Mensaje de huella si existe el directorio
Directorio de impresión "ya existe.\norte";

demás

mkdir ($ dir_path)
#Mensaje de error de huella
o morir "no puede crear $ dir_path directorio.\norte";
#Imprima el mensaje de éxito
Directorio de impresión "creado con éxito.\norte";

Ejecute los siguientes comandos para ejecutar el código PERL, vaya a la ruta del directorio y verifique si el directorio está creado o no.

$ perl mkdir3.por favor
$ CD Temper
$ LS

Producción

Según la siguiente salida, el "mydir"El directorio no existía antes en la ruta definida, y el directorio se creó con éxito.

Conclusión

Las formas de crear un directorio con o sin los bits de permiso utilizando la función mkdir () se han mostrado en este tutorial. Espero que este tutorial ayude al nuevo usuario de Perl a conocer los usos de la función Mkdir () en Perl correctamente.