programmeringssproget Perl har en særlig flow - kontrolstruktur kaldet switch erklæring. Switch-sætningen evaluerer en variabel og udfører derefter en sag erklæring , der svarer til den evaluerede variabel. Hvis der ikke matchende sagen erklæring er fundet, en standard sag henrettet. Switch udsagn er nyttige til afgrening til en af ​​mange mulige udførelse stier . Det er en af ​​de grundlæggende kontrolstrukturer fælles for mange programmeringssprog . Du kan lære at skrive en switch-statement i Perl på kun et par minutter. Hvad du har brug
Computer med Perl tolk installeret
Vis Flere Instruktioner
1

Opret en ny tekstfil i et tekstbehandlingsprogram såsom Notesblok . Gem filen ved hjælp af . PLX forlængelse.
2

Åbn en kommandoprompt , og navigere til den mappe, hvor du har gemt filen blev oprettet i Trin 1 . For eksempel, hvis du har gemt din fil på roden af ​​dit C: \\ drev i Windows, kan du skrive følgende ved en kommandoprompt : Hej

cd C: \\
3

Importer Switch -modulet ved at skrive følgende erklæring på toppen af ​​kildekoden fil : Hej

brug Switch;
4

Erklær en variabel og tildele den en værdi , som dette : Hej

$ val = 1,
5

Opret en switch-statement, der vurderer den variable erklæret i den foregående sætning. For eksempel kan du skrive følgende switch-statement : Hej

switch ( $ val )

{

}
6

Opret en sag erklæring der udfører , når variablen $ val matcher en bestemt værdi. Alle case udsagn skal gå inde i de krøllede parenteser i switch-statementet . For at oprette en sag erklæring , der henretter når $ val er lig med 1 , og udskriver ordet One, skriver følgende : Hej

sag 1 { print " One" }
7

Opret et par mere case udsagn , som dette : Hej

tilfælde 2 { print " Two" }

sag 3 { print " Three "}
8

Opret en standard sagen erklæring , der udfører , når variablen $ val svarer ikke til nogen anden sag erklæring . Dette kan gøres ved hjælp af andet søgeord , som dette : Hej

else { print " Standard Case "}
9

Udfør Perl-script ved at udstede følgende kommando fra kommandolinjen , substituere det navn, du har valgt i trin 1 for " filename" : Hej

perl filename.plx
10

Undersøg output. Da $ val tildeles værdien 1 , output ser sådan ud:

En