Două tipuri de variabile pot fi utilizate în limbajele de scripting shell: unul este variabilele shell și celălalt este variabilele de mediu. Variabilele de mediu sunt lucrate ca variabile globale pentru limbajele de scripting. Datele legate de mediu care sunt utilizate pentru a executa script-ul sunt stocate în variabilele de mediu. Aceste variabile sunt stocate pe baza perechii cheie-valoare. Numele variabilei este definit de cheia care stochează valoarea variabilei. Valoarea oricărei variabile de mediu poate fi setată sau accesată de scriptul Perl. Metodele de accesare și modificare a variabilelor de mediu folosind scriptul Perl sunt prezentate în acest tutorial.
Utilizări ale variabilelor de mediu în scriptul Perl
Metodele de accesare a anumitor variabile de mediu sau a tuturor variabilelor de mediu și de resetare a oricărei variabile de mediu sunt prezentate în această parte a tutorialului.
Exemplul 1: Imprimați variabilele de mediu specifice
Variabilele de mediu sunt stocate în matricea %ENV care funcționează ca și matricea asociativă. Numele variabilei este cheia matricei %ENV, iar valoarea este stocată în respectiva cheie. Creați un fișier Perl cu următorul script care imprimă trei variabile de mediu. Numele de utilizator de conectare curent este stocat în variabila $ENV{‘USER’}. Valoarea curentă a shell-ului este stocată în variabila $ENV{‘SHELL’}. Directorul de lucru curent este stocat în variabila $ENV{‘PWD’}. Aceste trei variabile sunt accesate și tipărite în script.
#!/local/bin/perl
folosiți strict;
folosiți avertismente;
utilizați 5.34.0;
#Tipărește valorile a trei variabile de mediu
Spune „Numele de utilizator este” . $ENV { 'UTILIZATOR' } ;
Spune „Învelișul actual este” . $ENV { 'COAJĂ' } ;
Spune „Directorul de lucru actual este „ . $ENV { „PWD” } ;
Ieșire:
Următoarea ieșire similară apare după executarea scriptului:
Exemplul 2: Imprimați primele cinci variabile de mediu
Creați un fișier Perl cu următorul script pentru a citi primele cinci valori ale matricei %ENV care conține toate variabilele de mediu. Aici, bucla „foreach” este folosită pentru a citi toate variabilele de mediu pe baza valorilor cheilor sortate. Variabila „$counter” este folosită în script pentru a termina bucla după imprimarea celor cinci variabile de mediu. Variabila „$counter” este incrementată în fiecare iterație a buclei și când valoarea „$counter” este 5, se execută instrucțiunea „ultima” pentru a ieși din buclă.
#!/local/bin/perlfolosiți strict;
folosiți avertismente;
utilizați 5.34.0;
#Inițializați contorul
Ale mele $counter = 0 ;
#Repetați bucla pentru a citi toate variabilele de mediu
pentru fiecare ( fel chei % ENV ) {
#Citiți numele variabilei de mediu
Ale mele $key = $_ ;
#Citiți valoarea variabilei de mediu
Ale mele $valoare = $ENV { $key } ;
#Tipărește numele variabilei cu valoarea
Spune ' $key => $valoare ' ;
#Măriți contorul
$counter ++;
#Verificați valoarea contorului
dacă ( $counter > = 5 )
{
#Terminați din buclă
ultimul ;
}
}
Ieșire:
Următoarea ieșire similară apare după executarea scriptului:
Exemplul 3: Resetați variabila de mediu
În exemplele anterioare, valorile predefinite ale variabilelor de mediu sunt accesate individual și folosind o buclă. Cu toate acestea, valoarea oricărei variabile de mediu poate fi modificată folosind scriptul Perl. Creați un fișier Perl cu următorul script care imprimă locația HOME, schimbă locația în „/temp/files” și imprimă din nou locația HOME după actualizare.
#!/local/bin/perlfolosiți strict;
folosiți avertismente;
utilizați 5.34.0;
#Tipărește valoarea unei anumite variabile de mediu
Spune „Valoarea actuală a HOME este” . $ENV { 'ACASĂ' } ;
#Resetați variabila de mediu
$ENV { 'ACASĂ' } = „/temp/files” ;
#Tipărește valoarea unei anumite variabile de mediu după actualizare
Spune „Valoarea actuală a HOME este” . $ENV { 'ACASĂ' } ;
Ieșire:
Următoarea ieșire similară apare după executarea scriptului:
Exemplul 4: Imprimați variabilele de mediu cu formatare
Creați un fișier Perl cu următorul script care imprimă variabilele de mediu cu formatare folosind funcția printf(). Aici, bucla „foreach” este folosită pentru a citi toate variabilele de mediu, ca în exemplul anterior. Perechea cheie-valoare a variabilei de mediu este tipărită adăugând două puncte (:) între cheie și valoare și păstrând un spațiu de 15 caractere pentru cheie.
#!/local/bin/perlfolosiți strict;
folosiți avertismente;
utilizați 5.34.0;
#Repetați bucla pentru a citi toate variabilele de mediu
foreach mea $k ( fel chei % ENV ) {
#Tipărește rezultatul formatat al variabilelor de mediu
printf ( „%15s: %s \n ' , $k , $ENV { $k } ) ;
}
Ieșire:
Următoarea ieșire similară apare după executarea scriptului. Unele porțiuni de la începutul ieșirii sunt afișate aici:
Concluzie
Variabilele de mediu sunt utilizate în scopuri diferite și uneori este necesar să se schimbe valoarea curentă a unei anumite variabile de mediu pentru orice scop de programare. Metodele de obținere și setare a valorilor variabilelor de mediu folosind scriptul Perl sunt prezentate în exemplele acestui tutorial pentru a ajuta utilizatorii Perl.