Shell skriptu valodās var izmantot divu veidu mainīgos: viens ir apvalka mainīgie un otrs ir vides mainīgie. Vides mainīgie tiek izmantoti kā globālie mainīgie skriptu valodām. Ar vidi saistītie dati, kas tiek izmantoti skripta izpildei, tiek glabāti vides mainīgajos. Šie mainīgie tiek saglabāti, pamatojoties uz atslēgu un vērtību pāri. Mainīgā lieluma nosaukumu nosaka atslēga, kas saglabā mainīgā vērtību. Jebkura vides mainīgā vērtību var iestatīt vai piekļūt ar Perl skriptu. Šajā apmācībā ir parādītas metodes, kā piekļūt vides mainīgajiem un mainīt tos, izmantojot Perl skriptu.
Vides mainīgo izmantošana Perl skriptā
Šajā apmācības daļā ir parādītas metodes, kā piekļūt konkrētiem vai visiem vides mainīgajiem un atiestatīt jebkuru vides mainīgo.
1. piemērs. Izdrukājiet konkrētos vides mainīgos
Vides mainīgie tiek glabāti %ENV masīvā, kas darbojas kā asociatīvais masīvs. Mainīgā nosaukums ir %ENV masīva atslēga, un vērtība tiek saglabāta šajā konkrētajā atslēgā. Izveidojiet Perl failu ar šādu skriptu, kas izdrukā trīs vides mainīgos. Pašreizējais pieteikšanās lietotājvārds tiek saglabāts mainīgajā $ENV{'USER'}. Pašreizējā čaulas vērtība tiek saglabāta mainīgajā $ENV{'SHELL'}. Pašreizējais darba direktorijs tiek saglabāts mainīgajā $ENV{'PWD'}. Šiem trim mainīgajiem var piekļūt un tie tiek izdrukāti skriptā.
#!/local/bin/perl
izmantot stingru;
izmantot brīdinājumus;
izmantot 5.34.0;
#Izdrukājiet trīs vides mainīgo vērtības
saki 'Lietotājvārds ir' . $ENV { 'USER' } ;
saki 'Pašreizējais apvalks ir' . $ENV { 'SHELL' } ;
saki 'Pašreizējais darba direktorijs ir' . $ENV { 'PWD' } ;
Izvade:
Pēc skripta izpildes parādās šāda līdzīga izvade:
2. piemērs: izdrukājiet pirmos piecus vides mainīgos
Izveidojiet Perl failu ar šādu skriptu, lai nolasītu pirmās piecas vērtības %ENV masīvā, kurā ir visi vides mainīgie. Šeit “foreach” cilpa tiek izmantota, lai nolasītu visus vides mainīgos, pamatojoties uz sakārtotajām atslēgu vērtībām. Mainīgais “$counter” tiek izmantots skriptā, lai pārtrauktu cilpu pēc piecu vides mainīgo drukāšanas. Mainīgais “$counter” tiek palielināts katrā cilpas iterācijā, un, ja “$counter” vērtība ir 5, tiek izpildīts paziņojums “pēdējais”, lai izietu no cilpas.
#!/local/bin/perlizmantot stingru;
izmantot brīdinājumus;
izmantot 5.34.0;
#Inicializējiet skaitītāju
mans $skaitītājs = 0 ;
#Atkārtojiet cilpu, lai nolasītu visus vides mainīgos
katram ( kārtot atslēgas % ENV ) {
#Izlasiet vides mainīgā nosaukumu
mans $key = $_ ;
#Izlasiet vides mainīgā vērtību
mans $vērtība = $ENV { $key } ;
#Izdrukājiet mainīgā nosaukumu ar vērtību
saki ' $key => $vērtība ' ;
#Palieliniet skaitītāju
$skaitītājs ++;
#Pārbaudiet skaitītāja vērtību
ja ( $skaitītājs > = 5 )
{
#Pārtraukt cilpu
Pēdējais ;
}
}
Izvade:
Pēc skripta izpildes parādās šāda līdzīga izvade:
3. piemērs. Vides mainīgā atiestatīšana
Iepriekšējos piemēros vides mainīgo iepriekš definētajām vērtībām var piekļūt atsevišķi un izmantojot cilpu. Tomēr jebkura vides mainīgā vērtību var mainīt, izmantojot Perl skriptu. Izveidojiet Perl failu ar šādu skriptu, kas izdrukā HOME atrašanās vietu, maina atrašanās vietu uz “/temp/files” un pēc atjaunināšanas vēlreiz izdrukā HOME atrašanās vietu.
#!/local/bin/perlizmantot stingru;
izmantot brīdinājumus;
izmantot 5.34.0;
#Izdrukājiet konkrētā vides mainīgā vērtību
saki 'Mājas pašreizējā vērtība ir' . $ENV { 'MĀJAS' } ;
#Atiestatīt vides mainīgo
$ENV { 'MĀJAS' } = '/temp/faili' ;
#Pēc atjaunināšanas izdrukājiet konkrētā vides mainīgā vērtību
saki 'Mājas pašreizējā vērtība ir' . $ENV { 'MĀJAS' } ;
Izvade:
Pēc skripta izpildes parādās šāda līdzīga izvade:
4. piemērs. Drukājiet vides mainīgos ar formatējumu
Izveidojiet Perl failu ar šādu skriptu, kas izdrukā vides mainīgos ar formatējumu, izmantojot funkciju printf (). Šeit 'foreach' cilpa tiek izmantota, lai lasītu visus vides mainīgos, tāpat kā iepriekšējā piemērā. Vides mainīgā atslēgas-vērtības pāris tiek drukāts, pievienojot kolu (:) starp atslēgu un vērtību un saglabājot atslēgai 15 rakstzīmju atstarpi.
#!/local/bin/perlizmantot stingru;
izmantot brīdinājumus;
izmantot 5.34.0;
#Atkārtojiet cilpu, lai nolasītu visus vides mainīgos
priekš manis $k ( kārtot atslēgas % ENV ) {
#Izdrukājiet vides mainīgo formatēto izvadi
printf ( '%15s : %s \n ' , $k , $ENV { $k } ) ;
}
Izvade:
Pēc skripta izpildes parādās šāda līdzīga izvade. Šeit ir parādītas dažas daļas izvades sākumā:
Secinājums
Vides mainīgie tiek izmantoti dažādiem mērķiem, un dažkārt jebkuram programmēšanas mērķim ir jāmaina konkrētā vides mainīgā pašreizējā vērtība. Metodes, kā iegūt un iestatīt vides mainīgo vērtības, izmantojot Perl skriptu, ir parādītas šīs apmācības piemēros, lai palīdzētu Perl lietotājiem.