To typer variabler kan bruges i shell-scriptsprog: den ene er shell-variablerne og den anden er miljøvariablerne. Miljøvariablerne fungerer som de globale variabler for scriptsprogene. De miljørelaterede data, der bruges til at udføre scriptet, gemmes i miljøvariablerne. Disse variabler gemmes baseret på nøgleværdi-parret. Navnet på variablen er defineret af den nøgle, der gemmer værdien af variablen. Værdien af enhver miljøvariabel kan indstilles eller tilgås af Perl-scriptet. Metoderne til at få adgang til og ændre miljøvariablerne ved hjælp af Perl-scriptet er vist i denne øvelse.
Brug af miljøvariablerne i Perl-scriptet
Metoderne til at få adgang til de bestemte eller alle miljøvariabler og nulstille enhver miljøvariabel er vist i denne del af selvstudiet.
Eksempel 1: Udskriv de særlige miljøvariabler
Miljøvariablerne er gemt i %ENV-arrayet, der fungerer som det associative array. Variabelnavnet er nøglen til %ENV-arrayet, og værdien er gemt i den pågældende nøgle. Opret en Perl-fil med følgende script, der udskriver tre miljøvariabler. Det aktuelle login-brugernavn er gemt i $ENV{‘USER’}-variablen. Den aktuelle shell-værdi er gemt i $ENV{‘SHELL’}-variablen. Den aktuelle arbejdsmappe er gemt i $ENV{‘PWD’}-variablen. Disse tre variabler tilgås og udskrives i scriptet.
#!/local/bin/perl
brug streng;
brug advarsler;
brug 5.34.0;
#Udskriv værdierne for tre miljøvariabler
sige 'Brugernavn er' . $ENV { 'BRUGER' } ;
sige 'Nuværende skal er' . $ENV { 'SKAL' } ;
sige 'Nuværende arbejdsmappe er' . $ENV { 'PWD' } ;
Produktion:
Følgende lignende output vises efter eksekvering af scriptet:
Eksempel 2: Udskriv de første fem miljøvariabler
Opret en Perl-fil med følgende script for at læse de første fem værdier af %ENV-arrayet, der indeholder alle miljøvariabler. Her bruges 'foreach'-løkken til at læse alle miljøvariabler baseret på de sorterede nøgleværdier. Variablen '$counter' bruges i scriptet til at afslutte løkken efter udskrivning af de fem miljøvariabler. Variablen '$counter' øges i hver iteration af sløjfen, og når værdien af '$counter' er 5, udføres 'sidste'-sætningen for at forlade sløjfen.
#!/local/bin/perlbrug streng;
brug advarsler;
brug 5.34.0;
#Initialiser tælleren
min $tæller = 0 ;
#Gentag løkken for at læse alle miljøvariabler
for hver ( sortere nøgler % ENV ) {
#Læs navnet på miljøvariablen
min $nøgle = $_ ;
#Læs værdien af miljøvariablen
min $værdi = $ENV { $nøgle } ;
#Udskriv variabelnavnet med værdien
sige ' $nøgle => $værdi ' ;
#Forøg tælleren
$tæller ++;
#Tjek tællerværdien
hvis ( $tæller > = 5 )
{
#Afslut fra løkken
sidst ;
}
}
Produktion:
Følgende lignende output vises efter eksekvering af scriptet:
Eksempel 3: Nulstil miljøvariablen
I de foregående eksempler er de foruddefinerede værdier af miljøvariablerne tilgået individuelt og ved hjælp af en loop. Værdien af enhver miljøvariabel kan dog ændres ved hjælp af Perl-scriptet. Opret en Perl-fil med følgende script, der udskriver placeringen af HOME, ændrer placeringen til '/temp/files', og udskriver placeringen af HOME igen efter opdateringen.
#!/local/bin/perlbrug streng;
brug advarsler;
brug 5.34.0;
#Udskriv værdien af den bestemte miljøvariabel
sige 'Den aktuelle værdi af HOME er' . $ENV { 'HJEM' } ;
#Nulstil miljøvariablen
$ENV { 'HJEM' } = '/temp/filer' ;
#Udskriv værdien af den bestemte miljøvariabel efter opdateringen
sige 'Den aktuelle værdi af HOME er' . $ENV { 'HJEM' } ;
Produktion:
Følgende lignende output vises efter eksekvering af scriptet:
Eksempel 4: Udskriv miljøvariablerne med formatering
Opret en Perl-fil med følgende script, der udskriver miljøvariablerne med formatering ved hjælp af printf()-funktionen. Her bruges 'foreach'-løkken til at læse alle miljøvariabler som i det foregående eksempel. Nøgleværdi-parret af miljøvariablen udskrives ved at tilføje kolon(:) mellem nøglen og værdien og beholde et mellemrum på 15 tegn for nøglen.
#!/local/bin/perlbrug streng;
brug advarsler;
brug 5.34.0;
#Gentag løkken for at læse alle miljøvariabler
foreach min $k ( sortere nøgler % ENV ) {
#Udskriv det formaterede output af miljøvariablerne
printf ( '%15s : %s \n ' , $k , $ENV { $k } ) ;
}
Produktion:
Følgende lignende output vises efter eksekvering af scriptet. Nogle dele i begyndelsen af outputtet er vist her:
Konklusion
Miljøvariablerne bruges til forskellige formål, og det er nogle gange nødvendigt at ændre den aktuelle værdi af den bestemte miljøvariabel til ethvert programmeringsformål. Metoderne til at hente og indstille værdierne for miljøvariablerne ved hjælp af Perl-scriptet er vist i eksemplerne i denne vejledning for at hjælpe Perl-brugerne.