ActivePerl Subrutiner

in $ num1 = 4; min $ num2 = 5; sub mySub {min $ sum = $ _ [0] + $ _ [1]; min $ firkantet = $ sum * $ sum; returnere $ square; } Min $ resultat = mySub ($ num1, $ num2); print $ resultat; Læs og prøv ovenstående kode (forklaringen følger). Denne gang er blevet erklæret og tildeles uden for subrutinen variablerne. Nogle andre subrutine andetsteds i koden kan faktisk ændre disse værdier. Dog kan et underprogram ikke ændre værdien af ​​en variabel inde i nogle andre underprogram (alt andet lige). I det næstsidste én sætning, hvor underprogram kaldes; parenteserne har to variabler.

Disse variabler i denne stilling kaldes argumenter. Disse argumenter underprogram er de variabler erklæret uden for underprogram. Argumenterne til en subrutine opkald, kan være litteraler, noget lignende: min $ resultat = mySub (4, 5); Enhver subrutine definition blok, har en række kaldes,_. Navnet på array er _; det forudgås af @ da det er et array. Dette array er ikke set af dig programmøren, men du kan bruge det. Så snart udførelsen af ​​underprogram (blok) starter, argumenterne, der sendes til underprogram bliver elementerne i dette array, i den rækkefølge sendt.

I ovenstående kode, argumentet, $ num1 hvilket er 4, bliver værdien af ​​$ _ [0]. Det andet argument, $ num2, som er 5 bliver værdien af ​​$ _ [1]. Dette forklarer den første sætning i sub rutine blok ovenfor. Læse koden igen. Den Foruddefinerede print-funktion Vi har brugt de trykte funktionen, passerer kun ét argument hver gang vi kaldte det. Du kan faktisk gå mere end et argument. Adskil argumenter med komma som i følgende kode: Brug streng; print "Content-Type: text /html \\ n \\ n"; print ("en", "Prøv ovenstående kode. Der er faktisk fem argumenter på listen.

Hver af argumentet er en bogstavelig. Glem ikke, at parenteserne er valgfri for print og andre foruddefinerede funktioner, såvel som for dem, du definerer. Hey, kan du bruge variabler i stedet for litteraler (se hvordan nedenfor). Lad os stoppe her og fortsætte i den næste del. Chrys at nå frem til et hvilket som helst af de dele af denne serie, så skriv den tilsvarende titel nedenfor i søgefeltet på denne side og klik på Søg (brug menuen, hvis det findes): Kom i gang med ActivePerl ActivePerl Basic Syntaks Grundlæggende om ActivePerl Variabler ActivePerl Betingede Udtalelser Boolesk logik for ActivePerl Boolean Logic og ActivePerl Betingelser ActivePerl Sammenligning og regnetegn ActivePerl Loop Udtalelser ActivePerl Arrays ActivePerl hashes ActivePerl Variabl