Ringa en Subrutin Du kallar en subrutin genom att bara skriva namnet på underprogrammet, eventuellt följt av parenteser, i ett uttalande. Följande kod illustrerar detta. Läs och prova: använd strikt; print "Content-Type: text /html \\ n \\ n"; sub mySub {min $ num1 = 2; min $ num2 = 3; min $ summa = $ num1 + $ num2; min $ kvadrat = $ summa * $ summan; returnera $ kvadrat; } Min $ result = mySub (); print $ result; Denna kod är liknande den föregående med tillägget av de två sista uttalanden. Den näst sista ett uttalande kallar subrutinen. Detta uttalande samtal utanför subrutinen.
Den högra operanden av meddelandet är "mySub ()". Det är detta uttryck som anropar subrutinen. När man kallar subrutinen, får det värde som returneras av programsatsen return i underprogrammet. Detta värde är nu tilldelas variabeln $ result. Det sista uttalandet visar resultatet. En subrutinanrop inte alltid att tilldela ett returvärdet till en variabel. Subrutiner som inte har returvärden kallas genom att bara skriva namnet, följt av parenteser (då semikolon för att bilda ett uttalande). Den näst sista ett uttalande i koden är: min $ result = mySub (); mySub () är funktionsanrop.
I ActivePerl, parentes är valfria. Du kan ringa en funktion utan att skriva parentesen. Det är dock bra att skriva in dem, eftersom det krävs i andra språk; en programmerare vet mer än en datorspråk. Du kan också få utrymme mellan funktionsnamnet och parentesen; utrymmet är valfritt. Parametrar och Argument Nu, i ovanstående subrutinen kan vi bara ta itu med två särskilda nummer, som är 2 och 3. Detta är en nackdel.
Om vi förklarar (skapa) och tilldela variablerna utanför subrutinen, då kan vi alltid ändra värdena på variablerna, sedan skicka variabler till subrutinen innan subrutinen exekveras. På så sätt ska vi kunna ta itu med många andra par av siffror. Följande exempel illustrerar detta: använd strikt; print "Content-Type: text /html \\ n \\ n"; min $ num1 = 4; min $ num2 = 5; sub mySub {min $ summa = $ _ [0] +