Apvalkalo skriptų kalbose gali būti naudojami dviejų tipų kintamieji: vienas yra apvalkalo kintamieji, o kitas yra aplinkos kintamieji. Aplinkos kintamieji yra naudojami kaip pasauliniai scenarijų kalbų kintamieji. Su aplinka susiję duomenys, naudojami scenarijui vykdyti, yra saugomi aplinkos kintamuosiuose. Šie kintamieji saugomi pagal rakto-reikšmių porą. Kintamojo pavadinimas apibrėžiamas raktu, kuriame saugoma kintamojo reikšmė. Bet kurio aplinkos kintamojo reikšmę gali nustatyti arba pasiekti Perl scenarijus. Aplinkos kintamųjų prieigos ir modifikavimo metodai naudojant Perl scenarijų parodyti šioje pamokoje.
Aplinkos kintamųjų naudojimas Perl scenarijuje
Prieigos prie konkretaus arba visų aplinkos kintamųjų ir bet kurio aplinkos kintamojo nustatymo iš naujo metodai parodyti šioje mokymo programos dalyje.
1 pavyzdys: Išspausdinkite konkrečius aplinkos kintamuosius
Aplinkos kintamieji saugomi %ENV masyve, kuris veikia kaip asociatyvinis masyvas. Kintamojo pavadinimas yra %ENV masyvo raktas, o reikšmė saugoma tame konkrečiame rakte. Sukurkite Perl failą su šiuo scenarijumi, kuris spausdina tris aplinkos kintamuosius. Dabartinis prisijungimo vartotojo vardas yra saugomas $ENV{‘USER'} kintamajame. Dabartinė apvalkalo reikšmė saugoma $ENV{‘SHELL’} kintamajame. Dabartinis darbo katalogas yra saugomas $ENV{'PWD'} kintamajame. Šie trys kintamieji pasiekiami ir atspausdinami scenarijuje.
#!/local/bin/perl
naudoti griežtai;
naudoti įspėjimus;
naudoti 5.34.0;
#Atspausdinkite trijų aplinkos kintamųjų reikšmes
pasakyti 'Vartotojo vardas yra' . $ENV { 'VARTOTOJAS' } ;
pasakyti 'Dabartinis apvalkalas yra' . $ENV { 'SHELL' } ;
pasakyti 'Dabartinis darbo katalogas yra' . $ENV { „PWD“ } ;
Išvestis:
Įvykdžius scenarijų pasirodo tokia panaši išvestis:
2 pavyzdys: išspausdinkite pirmuosius penkis aplinkos kintamuosius
Sukurkite Perl failą su šiuo scenarijumi, kad perskaitytumėte pirmąsias penkias %ENV masyvo, kuriame yra visi aplinkos kintamieji, reikšmes. Čia „foreach“ ciklas naudojamas nuskaityti visus aplinkos kintamuosius pagal surūšiuotas raktų reikšmes. Kintamasis „$ skaitiklis“ naudojamas scenarijuje, norint užbaigti ciklą išspausdinus penkis aplinkos kintamuosius. Kintamasis „$counter“ didinamas kiekvienoje ciklo iteracijoje, o kai „$counter“ reikšmė yra 5, įvykdomas „paskutinis“ teiginys, kad išeitumėte iš ciklo.
#!/local/bin/perlnaudoti griežtai;
naudoti įspėjimus;
naudoti 5.34.0;
#Inicijuokite skaitiklį
mano $ skaitiklis = 0 ;
#Pakartokite kilpą, kad perskaitytumėte visus aplinkos kintamuosius
kiekvienam ( rūšiuoti raktai % ENV ) {
#Perskaitykite aplinkos kintamojo pavadinimą
mano $raktas = $_ ;
#Perskaitykite aplinkos kintamojo reikšmę
mano $ vertė = $ENV { $raktas } ;
#Spausdinkite kintamojo pavadinimą su reikšme
pasakyti “ $raktas => $ vertė “ ;
#Padidinkite skaitiklį
$ skaitiklis ++;
#Patikrinkite skaitiklio vertę
jeigu ( $ skaitiklis > = 5 )
{
#Nutraukti kilpą
paskutinis ;
}
}
Išvestis:
Įvykdžius scenarijų pasirodo tokia panaši išvestis:
3 pavyzdys: Iš naujo nustatykite aplinkos kintamąjį
Ankstesniuose pavyzdžiuose iš anksto nustatytos aplinkos kintamųjų reikšmės pasiekiamos atskirai ir naudojant kilpą. Tačiau bet kurio aplinkos kintamojo reikšmę galima pakeisti naudojant Perl scenarijų. Sukurkite Perl failą su šiuo scenarijumi, kuris išspausdina HOME vietą, pakeičia vietą į „/temp/files“ ir po atnaujinimo vėl išspausdina HOME vietą.
#!/local/bin/perlnaudoti griežtai;
naudoti įspėjimus;
naudoti 5.34.0;
#Atspausdinkite konkretaus aplinkos kintamojo reikšmę
pasakyti 'Dabartinė namų vertė yra' . $ENV { 'NAMAI' } ;
# Iš naujo nustatykite aplinkos kintamąjį
$ENV { 'NAMAI' } = '/temp/failai' ;
#Atnaujinę spausdinkite konkretaus aplinkos kintamojo reikšmę
pasakyti 'Dabartinė 'HOME' vertė yra ' . $ENV { 'NAMAI' } ;
Išvestis:
Įvykdžius scenarijų pasirodo tokia panaši išvestis:
4 pavyzdys: Išspausdinkite aplinkos kintamuosius su formatavimu
Sukurkite Perl failą su šiuo scenarijumi, kuris spausdina aplinkos kintamuosius su formatavimu naudojant printf() funkciją. Čia „foreach“ ciklas naudojamas visiems aplinkos kintamiesiems skaityti, kaip ir ankstesniame pavyzdyje. Aplinkos kintamojo rakto ir reikšmės pora spausdinama tarp rakto ir reikšmės pridedant dvitaškį (:) ir raktui paliekant 15 simbolių tarpą.
#!/local/bin/perlnaudoti griežtai;
naudoti įspėjimus;
naudoti 5.34.0;
#Pakartokite kilpą, kad perskaitytumėte visus aplinkos kintamuosius
priek mano $k ( rūšiuoti raktai % ENV ) {
#Spausdinkite suformatuotą aplinkos kintamųjų išvestį
printf ( '%15s : %s \n “ , $k , $ENV { $k } ) ;
}
Išvestis:
Po scenarijaus vykdymo pasirodo tokia panaši išvestis. Kai kurios dalys išvesties pradžioje rodomos čia:
Išvada
Aplinkos kintamieji naudojami įvairiems tikslams ir kartais reikia pakeisti esamą konkretaus aplinkos kintamojo reikšmę bet kokiam programavimo tikslui. Aplinkos kintamųjų reikšmių gavimo ir nustatymo metodai naudojant Perl scenarijų yra parodyti šios pamokos pavyzdžiuose, kad padėtų Perl vartotojams.