Shelliskriptikeeltes saab kasutada kahte tüüpi muutujaid: üks on shellismuutujad ja teine keskkonnamuutujad. Keskkonnamuutujaid kasutatakse skriptikeelte globaalsete muutujatena. Skripti täitmiseks kasutatavad keskkonnaga seotud andmed salvestatakse keskkonnamuutujatesse. Need muutujad salvestatakse võtme-väärtuste paari alusel. Muutuja nime määrab võti, mis salvestab muutuja väärtuse. Perli skripti abil saab määrata mis tahes keskkonnamuutuja väärtuse või sellele juurde pääseda. Selles õpetuses kuvatakse Perli skripti abil keskkonnamuutujatele juurdepääsu ja nende muutmise meetodid.
Keskkonnamuutujate kasutamine Perli skriptis
Selles õpetuse osas on näidatud meetodid konkreetsetele või kõigile keskkonnamuutujatele juurdepääsuks ja mis tahes keskkonnamuutujate lähtestamiseks.
Näide 1: Printige konkreetsed keskkonnamuutujad
Keskkonnamuutujad salvestatakse %ENV massiivi, mis töötab nagu assotsiatiivne massiiv. Muutuja nimi on %ENV massiivi võti ja väärtus salvestatakse sellesse võtmesse. Looge järgmise skriptiga Perli fail, mis prindib kolm keskkonnamuutujat. Praegune sisselogimise kasutajanimi on salvestatud muutujasse $ENV{‘USER’}. Praegune shelli väärtus salvestatakse muutujas $ENV{'SHELL'}. Praegune töökataloog salvestatakse muutujas $ENV{'PWD'}. Nendele kolmele muutujale pääseb juurde ja need prinditakse skriptis.
#!/local/bin/perl
kasutada ranget;
kasutada hoiatusi;
kasutada 5.34.0;
#Trüki kolme keskkonnamuutuja väärtused
öelda 'Kasutajanimi on' . $ENV { 'USER' } ;
öelda 'Praegune kest on' . $ENV { 'SHELL' } ;
öelda 'Praegune töökataloog on' . $ENV { 'PWD' } ;
Väljund:
Pärast skripti käivitamist kuvatakse järgmine sarnane väljund:
Näide 2: printige esimesed viis keskkonnamuutujat
Looge järgmise skriptiga Perli fail, et lugeda kõiki keskkonnamuutujaid sisaldava %ENV massiivi viis esimest väärtust. Siin kasutatakse 'foreach' tsüklit kõigi keskkonnamuutujate lugemiseks sorteeritud võtmeväärtuste alusel. Muutujat “$counter” kasutatakse skriptis tsükli lõpetamiseks pärast viie keskkonnamuutuja printimist. Muutujat '$counter' suurendatakse tsükli igas iteratsioonis ja kui '$counter' väärtus on 5, käivitatakse tsüklist väljumiseks lause 'viimane'.
#!/local/bin/perlkasutada ranget;
kasutada hoiatusi;
kasutada 5.34.0;
#Initsialiseeri loendur
minu $loendur = 0 ;
#Itereerige tsüklit kõigi keskkonnamuutujate lugemiseks
igaühele ( sorteerida võtmed % ENV ) {
#Lugege keskkonnamuutuja nime
minu $võti = $_ ;
#Lugege keskkonnamuutuja väärtust
minu $ väärtus = $ENV { $võti } ;
#Trüki muutuja nimi koos väärtusega
öelda ' $võti => $ väärtus ' ;
#Suurendage loendurit
$loendur ++;
#Kontrollige loenduri väärtust
kui ( $loendur > = 5 )
{
#Lõpeta silmus
viimane ;
}
}
Väljund:
Pärast skripti käivitamist kuvatakse järgmine sarnane väljund:
Näide 3: lähtestage keskkonnamuutuja
Eelmistes näidetes pääsetakse keskkonnamuutujate eelmääratletud väärtustele juurde individuaalselt ja tsükli abil. Iga keskkonnamuutuja väärtust saab aga muuta Perli skripti abil. Looge järgmise skriptiga Perli fail, mis prindib HOME asukoha, muudab asukohaks '/temp/files' ja prindib pärast värskendamist uuesti HOME asukoha.
#!/local/bin/perlkasutada ranget;
kasutada hoiatusi;
kasutada 5.34.0;
#Prindige konkreetse keskkonnamuutuja väärtus
öelda 'HOME praegune väärtus on' . $ENV { 'KODU' } ;
#Lähtesta keskkonnamuutuja
$ENV { 'KODU' } = '/temp/failid' ;
#Prindige pärast värskendamist konkreetse keskkonnamuutuja väärtus
öelda 'HOME praegune väärtus on' . $ENV { 'KODU' } ;
Väljund:
Pärast skripti käivitamist kuvatakse järgmine sarnane väljund:
Näide 4: Keskkonnamuutujate printimine koos vormindamisega
Looge järgmise skriptiga Perli fail, mis prindib keskkonnamuutujad koos vormindamisega funktsiooni printf() abil. Siin kasutatakse tsüklit 'foreach' kõigi keskkonnamuutujate lugemiseks nagu eelmises näites. Keskkonnamuutuja võtme-väärtuse paari printimiseks lisatakse võtme ja väärtuse vahele koolon (:) ning jäetakse võtme jaoks 15 tähemärgi pikkune tühik.
#!/local/bin/perlkasutada ranget;
kasutada hoiatusi;
kasutada 5.34.0;
#Itereerige tsüklit kõigi keskkonnamuutujate lugemiseks
minu ette $k ( sorteerida võtmed % ENV ) {
#Prindige keskkonnamuutujate vormindatud väljund
printf ( '%15s : %s \n ' , $k , $ENV { $k } ) ;
}
Väljund:
Pärast skripti käivitamist ilmub järgmine sarnane väljund. Siin kuvatakse mõned osad väljundi alguses:
Järeldus
Keskkonnamuutujaid kasutatakse erinevatel eesmärkidel ja mõnikord on vaja muuta konkreetse keskkonnamuutuja praegust väärtust mis tahes programmeerimise eesmärgil. Perli skripti abil keskkonnamuutujate väärtuste hankimise ja seadistamise meetodid on Perli kasutajate abistamiseks näidatud selle õpetuse näidetes.