Två typer av variabler kan användas i skalskriptspråk: den ena är skalvariablerna och den andra är miljövariablerna. Miljövariablerna fungerar som de globala variablerna för skriptspråken. Den miljörelaterade data som används för att köra skriptet lagras i miljövariablerna. Dessa variabler lagras baserat på nyckel-värdeparet. Namnet på variabeln definieras av nyckeln som lagrar variabelns värde. Värdet på vilken miljövariabel som helst kan ställas in eller nås av Perl-skriptet. Metoderna för att komma åt och ändra miljövariablerna med Perl-skriptet visas i denna handledning.
Användning av miljövariabler i Perl-skriptet
Metoderna för att komma åt de specifika eller alla miljövariabler och återställa alla miljövariabler visas i den här delen av handledningen.
Exempel 1: Skriv ut de särskilda miljövariablerna
Miljövariablerna lagras i %ENV-matrisen som fungerar som den associativa matrisen. Variabelnamnet är nyckeln till %ENV-matrisen och värdet lagras i just den nyckeln. Skapa en Perl-fil med följande skript som skriver ut tre miljövariabler. Det aktuella användarnamnet för inloggning lagras i variabeln $ENV{‘USER’}. Det aktuella skalvärdet lagras i variabeln $ENV{‘SHELL’}. Den aktuella arbetskatalogen lagras i variabeln $ENV{‘PWD’}. Dessa tre variabler nås och skrivs ut i skriptet.
#!/local/bin/perl
använd strikt;
använd varningar;
använd 5.34.0;
#Skriv ut värdena för tre miljövariabler
säga 'Användarnamn är' . $ENV { 'ANVÄNDARE' } ;
säga 'Nuvarande skal är' . $ENV { 'SKAL' } ;
säga 'Aktuell arbetskatalog är' . $ENV { 'PWD' } ;
Produktion:
Följande liknande utdata visas efter exekvering av skriptet:
Exempel 2: Skriv ut de fem första miljövariablerna
Skapa en Perl-fil med följande skript för att läsa de första fem värdena i %ENV-matrisen som innehåller alla miljövariabler. Här används 'foreach'-loopen för att läsa alla miljövariabler baserat på de sorterade nyckelvärdena. Variabeln '$counter' används i skriptet för att avsluta loopen efter att de fem miljövariablerna har skrivits ut. Variabeln '$counter' inkrementeras i varje iteration av slingan och när värdet på '$counter' är 5, exekveras den 'sista'-satsen för att lämna slingan.
#!/local/bin/perlanvänd strikt;
använd varningar;
använd 5.34.0;
#Initiera räknaren
min $disk = 0 ;
#Iterera loopen för att läsa alla miljövariabler
för varje ( sortera nycklar % ENV ) {
#Läs namnet på miljövariabeln
min $nyckel = $_ ;
#Läs värdet på miljövariabeln
min $värde = $ENV { $nyckel } ;
#Skriv ut variabelnamnet med värdet
säga ' $nyckel => $värde ' ;
#Öka räknaren
$disk ++;
#Kontrollera räknarvärdet
om ( $disk > = 5 )
{
#Avsluta från slingan
sista ;
}
}
Produktion:
Följande liknande utdata visas efter exekvering av skriptet:
Exempel 3: Återställ miljövariabeln
I de föregående exemplen nås de fördefinierade värdena för miljövariablerna individuellt och med hjälp av en loop. Värdet på vilken miljövariabel som helst kan dock ändras med Perl-skriptet. Skapa en Perl-fil med följande skript som skriver ut platsen för HOME, ändrar platsen till '/temp/files' och skriver ut platsen för HOME igen efter uppdateringen.
#!/local/bin/perlanvänd strikt;
använd varningar;
använd 5.34.0;
#Skriv ut värdet för den specifika miljövariabeln
säga 'Det aktuella värdet på HOME är' . $ENV { 'HEM' } ;
#Återställ miljövariabeln
$ENV { 'HEM' } = '/temp/filer' ;
#Skriv ut värdet för den specifika miljövariabeln efter uppdateringen
säga 'Det aktuella värdet på HOME är' . $ENV { 'HEM' } ;
Produktion:
Följande liknande utdata visas efter exekvering av skriptet:
Exempel 4: Skriv ut miljövariabler med formatering
Skapa en Perl-fil med följande skript som skriver ut miljövariablerna med formatering med hjälp av printf()-funktionen. Här används 'foreach'-loopen för att läsa alla miljövariabler som i föregående exempel. Nyckel-värdeparet av miljövariabeln skrivs ut genom att lägga till kolon(:) mellan nyckeln och värdet och behålla ett mellanslag på 15 tecken för nyckeln.
#!/local/bin/perlanvänd strikt;
använd varningar;
använd 5.34.0;
#Iterera loopen för att läsa alla miljövariabler
foreach min $k ( sortera nycklar % ENV ) {
#Skriv ut den formaterade utdata från miljövariablerna
printf ( '%15s : %s \n ' , $k , $ENV { $k } ) ;
}
Produktion:
Följande liknande utdata visas efter exekvering av skriptet. Några delar i början av utgången visas här:
Slutsats
Miljövariablerna används för olika ändamål och det krävs ibland att det aktuella värdet för den specifika miljövariabeln ändras för alla programmeringsändamål. Metoderna för att hämta och ställa in värdena för miljövariablerna med hjälp av Perl-skriptet visas i exemplen i denna handledning för att hjälpa Perl-användarna.