Dvije vrste varijabli mogu se koristiti u skriptnim jezicima ljuske: jedna su varijable ljuske, a druga su varijable okoline. Varijable okoline rade se kao globalne varijable za skriptne jezike. Podaci vezani uz okruženje koji se koriste za izvođenje skripte pohranjuju se u varijablama okruženja. Ove se varijable pohranjuju na temelju para ključ-vrijednost. Ime varijable definirano je ključem koji pohranjuje vrijednost varijable. Vrijednost bilo koje varijable okruženja može se postaviti ili joj može pristupiti Perl skripta. Metode pristupa i mijenjanja varijabli okruženja pomoću Perl skripte prikazane su u ovom vodiču.
Upotreba varijabli okruženja u Perl skripti
Metode pristupa određenim ili svim varijablama okoline i resetiranja bilo koje varijable okoline prikazane su u ovom dijelu vodiča.
Primjer 1: Ispis određenih varijabli okruženja
Varijable okoline pohranjuju se u polje %ENV koje funkcionira kao asocijativno polje. Naziv varijable je ključ niza %ENV i vrijednost je pohranjena u tom ključu. Stvorite Perl datoteku sa sljedećom skriptom koja ispisuje tri varijable okoline. Trenutačno korisničko ime za prijavu pohranjeno je u varijabli $ENV{‘USER’}. Trenutna vrijednost ljuske pohranjena je u varijabli $ENV{‘SHELL’}. Trenutačni radni direktorij pohranjen je u varijabli $ENV{‘PWD’}. Ovim se trima varijablama pristupa i ispisuje u skripti.
#!/local/bin/perl
koristiti strog;
koristiti upozorenja;
koristiti 5.34.0;
#Ispiši vrijednosti tri varijable okoline
reći 'Korisničko ime je ' . $ENV { 'KORISNIK' } ;
reći 'Trenutna ljuska je ' . $ENV { 'LJUSKA' } ;
reći 'Trenutni radni direktorij je ' . $ENV { 'OSI' } ;
Izlaz:
Sljedeći sličan izlaz pojavljuje se nakon izvršavanja skripte:
Primjer 2: Ispis prvih pet varijabli okoline
Stvorite Perl datoteku sa sljedećom skriptom za čitanje prvih pet vrijednosti %ENV niza koji sadrži sve varijable okoline. Ovdje se petlja 'foreach' koristi za čitanje svih varijabli okoline na temelju sortiranih vrijednosti ključa. Varijabla “$counter” koristi se u skripti za prekid petlje nakon ispisa pet varijabli okoline. Varijabla “$counter” se povećava u svakoj iteraciji petlje i kada je vrijednost “$counter” 5, “last” izjava se izvršava za izlaz iz petlje.
#!/local/bin/perlkoristiti strog;
koristiti upozorenja;
koristiti 5.34.0;
#Inicijaliziraj brojač
moj $brojač = 0 ;
#Ponovite petlju za čitanje svih varijabli okruženja
za svakoga ( vrsta ključevi % ENV ) {
#Pročitajte naziv varijable okoline
moj $ključ = $_ ;
#Pročitajte vrijednost varijable okruženja
moj $vrijednost = $ENV { $ključ } ;
#Ispišite naziv varijable s vrijednošću
reći ' $ključ => $vrijednost ' ;
#Povećaj brojač
$brojač ++;
#Provjeri vrijednost brojača
ako ( $brojač > = 5 )
{
#Završi iz petlje
posljednji ;
}
}
Izlaz:
Sljedeći sličan izlaz pojavljuje se nakon izvršavanja skripte:
Primjer 3: Ponovno postavljanje varijable okruženja
U prethodnim primjerima unaprijed definiranim vrijednostima varijabli okoline pristupa se pojedinačno i pomoću petlje. Međutim, vrijednost bilo koje varijable okruženja može se promijeniti pomoću Perl skripte. Napravite Perl datoteku sa sljedećom skriptom koja ispisuje lokaciju HOME, mijenja lokaciju u “/temp/files” i ponovno ispisuje lokaciju HOME nakon ažuriranja.
#!/local/bin/perlkoristiti strog;
koristiti upozorenja;
koristiti 5.34.0;
#Ispiši vrijednost određene varijable okoline
reći 'Trenutna vrijednost KUĆE je ' . $ENV { 'DOM' } ;
#Resetiraj varijablu okoline
$ENV { 'DOM' } = '/temp/files' ;
#Ispiši vrijednost određene varijable okruženja nakon ažuriranja
reći 'Trenutna vrijednost KUĆE je ' . $ENV { 'DOM' } ;
Izlaz:
Sljedeći sličan izlaz pojavljuje se nakon izvršavanja skripte:
Primjer 4: Ispis varijabli okruženja s oblikovanjem
Stvorite Perl datoteku sa sljedećom skriptom koja ispisuje varijable okruženja s oblikovanjem pomoću funkcije printf(). Ovdje se petlja “foreach” koristi za čitanje svih varijabli okruženja kao u prethodnom primjeru. Par ključ-vrijednost varijable okoline ispisuje se dodavanjem dvotočke(:) između ključa i vrijednosti i zadržavanjem razmaka od 15 znakova za ključ.
#!/local/bin/perlkoristiti strog;
koristiti upozorenja;
koristiti 5.34.0;
#Ponovite petlju za čitanje svih varijabli okruženja
foreach my $k ( vrsta ključevi % ENV ) {
#Ispiši formatirani izlaz varijabli okoline
printf ( '%15s : %s \n ' , $k , $ENV { $k } ) ;
}
Izlaz:
Sljedeći sličan izlaz pojavljuje se nakon izvršavanja skripte. Ovdje su prikazani neki dijelovi na početku ispisa:
Zaključak
Varijable okruženja koriste se u različite svrhe i ponekad je potrebno promijeniti trenutnu vrijednost određene varijable okruženja za bilo koju svrhu programiranja. Metode za dobivanje i postavljanje vrijednosti varijabli okruženja pomoću Perl skripte prikazane su u primjerima ovog vodiča kako bi pomogle Perl korisnicima.