Se pueden utilizar dos tipos de variables en los lenguajes de scripting de shell: unas son las variables de shell y las otras son las variables de entorno. Las variables de entorno se trabajan como variables globales para los lenguajes de scripting. Los datos relacionados con el entorno que se utilizan para ejecutar el script se almacenan en las variables de entorno. Estas variables se almacenan en función del par clave-valor. El nombre de la variable está definido por la clave que almacena el valor de la variable. El script Perl puede establecer o acceder al valor de cualquier variable de entorno. En este tutorial se muestran los métodos para acceder y modificar las variables de entorno utilizando el script Perl.
Usos de las variables de entorno en el script Perl
Los métodos para acceder a las variables de entorno particulares o a todas y restablecer cualquier variable de entorno se muestran en esta parte del tutorial.
Ejemplo 1: imprimir las variables de entorno particulares
Las variables de entorno se almacenan en la matriz %ENV que funciona como la matriz asociativa. El nombre de la variable es la clave de la matriz %ENV y el valor se almacena en esa clave en particular. Cree un archivo Perl con el siguiente script que imprima tres variables de entorno. El nombre de usuario de inicio de sesión actual se almacena en la variable $ENV{'USER'}. El valor actual del shell se almacena en la variable $ENV{'SHELL'}. El directorio de trabajo actual se almacena en la variable $ENV{'PWD'}. Se accede a estas tres variables y se imprimen en el script.
#!/local/bin/perl
utilizar estricto;
utilizar advertencias;
utilizar 5.34.0;
#Imprimir los valores de tres variables de entorno.
decir 'El nombre de usuario es ' . $ENV { 'USUARIO' } ;
decir 'El shell actual es ' . $ENV { 'CAPARAZÓN' } ;
decir 'El directorio de trabajo actual es ' . $ENV { 'PcD' } ;
Producción:
El siguiente resultado similar aparece después de ejecutar el script:
Ejemplo 2: imprimir las primeras cinco variables de entorno
Cree un archivo Perl con el siguiente script para leer los primeros cinco valores de la matriz %ENV que contiene todas las variables de entorno. Aquí, el bucle 'foreach' se utiliza para leer todas las variables de entorno en función de los valores clave ordenados. La variable '$counter' se utiliza en el script para finalizar el ciclo después de imprimir las cinco variables de entorno. La variable “$counter” se incrementa en cada iteración del ciclo y cuando el valor de “$counter” es 5, se ejecuta la “última” instrucción para salir del ciclo.
#!/local/bin/perlutilizar estricto;
utilizar advertencias;
utilizar 5.34.0;
#Inicializar el contador
mi $contador = 0 ;
# Iterar el bucle para leer todas las variables de entorno.
para cada ( clasificar llaves % ENV ) {
#Leer el nombre de la variable de entorno.
mi clave $ = $_ ;
#Leer el valor de la variable de entorno.
mi valor $ = $ENV { clave $ } ;
#Imprimir el nombre de la variable con el valor
decir ' clave $ => valor $ ' ;
#Incrementar el contador
$contador ++;
#Comprueba el valor del contador
si ( $contador > = 5 )
{
#Terminar del bucle
último ;
}
}
Producción:
El siguiente resultado similar aparece después de ejecutar el script:
Ejemplo 3: restablecer la variable de entorno
En los ejemplos anteriores, se accede a los valores predefinidos de las variables de entorno de forma individual y mediante un bucle. Sin embargo, el valor de cualquier variable de entorno se puede cambiar utilizando el script Perl. Cree un archivo Perl con el siguiente script que imprime la ubicación de HOME, cambia la ubicación a “/temp/files” e imprime la ubicación de HOME nuevamente después de la actualización.
#!/local/bin/perlutilizar estricto;
utilizar advertencias;
utilizar 5.34.0;
#Imprimir el valor de la variable de entorno particular
decir 'El valor actual de HOME es ' . $ENV { 'HOGAR' } ;
#Restablecer la variable de entorno
$ENV { 'HOGAR' } = '/temp/archivos' ;
#Imprimir el valor de la variable de entorno particular después de la actualización
decir 'El valor actual de HOME es ' . $ENV { 'HOGAR' } ;
Producción:
El siguiente resultado similar aparece después de ejecutar el script:
Ejemplo 4: imprimir las variables de entorno con formato
Cree un archivo Perl con el siguiente script que imprima las variables de entorno con formato utilizando la función printf(). Aquí, el bucle 'foreach' se utiliza para leer todas las variables de entorno como en el ejemplo anterior. El par clave-valor de la variable de entorno se imprime agregando dos puntos (:) entre la clave y el valor, y manteniendo un espacio de 15 caracteres para la clave.
#!/local/bin/perlutilizar estricto;
utilizar advertencias;
utilizar 5.34.0;
# Iterar el bucle para leer todas las variables de entorno.
por delante de mi $k ( clasificar llaves % ENV ) {
#Imprimir la salida formateada de las variables de entorno.
imprimirf ( '%15s: %s \norte ' , $k , $ENV { $k } ) ;
}
Producción:
El siguiente resultado similar aparece después de ejecutar el script. Aquí se muestran algunas partes al comienzo del resultado:
Conclusión
Las variables de entorno se utilizan para diferentes propósitos y, a veces, es necesario cambiar el valor actual de la variable de entorno particular para cualquier propósito de programación. Los métodos para obtener y establecer los valores de las variables de entorno utilizando el script Perl se muestran en los ejemplos de este tutorial para ayudar a los usuarios de Perl.