V skriptnih jezikih lupine je mogoče uporabiti dve vrsti spremenljivk: ena so spremenljivke lupine, druga pa spremenljivke okolja. Spremenljivke okolja se uporabljajo kot globalne spremenljivke za skriptne jezike. Podatki, povezani z okoljem, ki se uporabljajo za izvajanje skripta, so shranjeni v spremenljivkah okolja. Te spremenljivke so shranjene na podlagi para ključ-vrednost. Ime spremenljivke je definirano s ključem, ki hrani vrednost spremenljivke. Vrednost katere koli spremenljivke okolja je mogoče nastaviti ali do nje dostopati s skriptom Perl. Metode dostopanja in spreminjanja spremenljivk okolja z uporabo skripta Perl so prikazane v tej vadnici.
Uporaba spremenljivk okolja v skriptu Perl
Metode dostopanja do določene ali vseh spremenljivk okolja in ponastavitve katere koli spremenljivke okolja so prikazane v tem delu vadnice.
Primer 1: Natisnite določene spremenljivke okolja
Spremenljivke okolja so shranjene v matriki %ENV, ki deluje kot asociativna matrika. Ime spremenljivke je ključ matrike %ENV in vrednost je shranjena v tem ključu. Ustvarite datoteko Perl z naslednjim skriptom, ki natisne tri spremenljivke okolja. Trenutno uporabniško ime za prijavo je shranjeno v spremenljivki $ENV{‘USER’}. Trenutna vrednost lupine je shranjena v spremenljivki $ENV{‘SHELL’}. Trenutni delovni imenik je shranjen v spremenljivki $ENV{'PWD'}. Te tri spremenljivke so dostopne in natisnjene v skriptu.
#!/lokal/bin/perl
uporabite strogo;
uporaba opozoril;
uporabi 5.34.0;
#Natisni vrednosti treh spremenljivk okolja
reči 'Uporabniško ime je ' . $ENV { 'UPORABNIK' } ;
reči 'Trenutna lupina je ' . $ENV { 'ŠKOLJKA' } ;
reči 'Trenutni delovni imenik je ' . $ENV { 'PWD' } ;
Izhod:
Po izvedbi skripta se prikaže naslednji podoben rezultat:
Primer 2: Natisnite prvih pet spremenljivk okolja
Ustvarite datoteko Perl z naslednjim skriptom za branje prvih petih vrednosti matrike %ENV, ki vsebuje vse spremenljivke okolja. Tukaj se zanka »foreach« uporablja za branje vseh spremenljivk okolja na podlagi razvrščenih vrednosti ključev. Spremenljivka “$counter” se v skriptu uporablja za prekinitev zanke po tiskanju petih spremenljivk okolja. Spremenljivka “$counter” se poveča v vsaki ponovitvi zanke in ko je vrednost “$counter” 5, se izvede “last” stavek za izhod iz zanke.
#!/lokal/bin/perluporabite strogo;
uporaba opozoril;
uporabi 5.34.0;
#Inicializiraj števec
moj $števec = 0 ;
#Ponovite zanko, da preberete vse spremenljivke okolja
za vsakogar ( vrsta ključi % ENV ) {
#Preberite ime spremenljivke okolja
moj $ključ = $_ ;
#Preberite vrednost spremenljivke okolja
moj $value = $ENV { $ključ } ;
#Natisnite ime spremenljivke z vrednostjo
reči ' $ključ => $value ' ;
#Povečaj števec
$števec ++;
#Preverite vrednost števca
če ( $števec > = 5 )
{
#Zaključi iz zanke
zadnji ;
}
}
Izhod:
Po izvedbi skripta se prikaže naslednji podoben rezultat:
Primer 3: Ponastavite spremenljivko okolja
V prejšnjih primerih se do vnaprej določenih vrednosti spremenljivk okolja dostopa posamično in z uporabo zanke. Vendar pa lahko vrednost katere koli spremenljivke okolja spremenite s skriptom Perl. Ustvarite datoteko Perl z naslednjim skriptom, ki natisne lokacijo HOME, spremeni lokacijo v »/temp/files« in po posodobitvi znova natisne lokacijo HOME.
#!/lokal/bin/perluporabite strogo;
uporaba opozoril;
uporabi 5.34.0;
#Natisni vrednost določene spremenljivke okolja
reči 'Trenutna vrednost HOME je ' . $ENV { 'DOMOV' } ;
#Ponastavi spremenljivko okolja
$ENV { 'DOMOV' } = '/temp/files' ;
#Natisnite vrednost določene spremenljivke okolja po posodobitvi
reči 'Trenutna vrednost HOME je ' . $ENV { 'DOMOV' } ;
Izhod:
Po izvedbi skripta se prikaže naslednji podoben rezultat:
Primer 4: Natisnite spremenljivke okolja z oblikovanjem
Ustvarite datoteko Perl z naslednjim skriptom, ki natisne spremenljivke okolja z oblikovanjem s funkcijo printf(). Tukaj se zanka »foreach« uporablja za branje vseh spremenljivk okolja, kot v prejšnjem primeru. Par ključ-vrednost spremenljivke okolja se natisne tako, da se med ključ in vrednost doda dvopičje (:) in za ključ ostane 15 znakov presledka.
#!/lokal/bin/perluporabite strogo;
uporaba opozoril;
uporabi 5.34.0;
#Ponovite zanko, da preberete vse spremenljivke okolja
foreach my $k ( vrsta ključi % ENV ) {
#Natisnite oblikovan izhod spremenljivk okolja
printf ( '%15s : %s \n ' , $k , $ENV { $k } ) ;
}
Izhod:
Po izvedbi skripta se prikaže naslednji podoben rezultat. Nekateri deli na začetku izpisa so prikazani tukaj:
Zaključek
Spremenljivke okolja se uporabljajo za različne namene in včasih je treba spremeniti trenutno vrednost določene spremenljivke okolja za kateri koli namen programiranja. Metode za pridobivanje in nastavljanje vrednosti spremenljivk okolja z uporabo skripta Perl so prikazane v primerih te vadnice v pomoč uporabnikom Perla.