Till skillnad från många andra programmeringsspråk , när du skriver koden för subrutiner i Perl , du behöver inte innehålla en förteckning över parametrar som funktionen accepterar . Men om du vet att funktionen kommer att få en eller flera parametrar , måste du ändå programmera subrutin för att använda dem . Alla parametrar som skickas till en Perl subrutin lagras i " @ _ " array , vilket är en speciell lista array . Detta innebär i princip att varje subrutin du skapar kan acceptera ett obegränsat antal parametrar , men hur många du behöver och hur du använder dem bestäms av subrutinen kod . Instruktioner
1
Öppna ett Perl programfil . Skriv följande kod :
sub linje {
$ var = @ _ [ 0 ] ;
}
Denna subrutin använder " @ _ " array för att få de parametrar, men bara använder sig av den första. Ringa antingen " linje ( ' Hej ! '); " Eller " line ( ' Hej ! ' , ' Hur mår du ? ' ) ; " Både print " Hej ! " . på skärmen
2
Skriv följande kod :
sub addNums {
$ total = 0;
för ( $ i = 0 , $ i < @ _ ; $ i + + ) {
$ total = $ totalt + @ _ [ $ i] ;
}
återvända $ total ;
}
subrutinanrop använder sig av alla de parametrar som skickas till den , oavsett hur många det finns . Calling " addNums ( 2,3 ) , " ger fem , " addNums ( 2,5,3 ) ; " returnerar 10 och " addNums ( 6,2,4,4 ) , " . Avkastning 16
3
sub array {
lokal ( $ parOne , $ parTwo , $ parThree ) ,
( $ parOne , $ parTwo , $ parThree ) = ( $ _ [ 0 ] , $ _ [ 1 ] , $ _ [ 2 ] ) ; " . Du passerade $ parOne , $ parTwo och $ parThree som parametrar "
tryck;
}
denna subrutin tar de första tre parametrar som skickas till den och tilldelar dem till lokala variabler . Använda vissa variabelnamn i längre subrutiner kan göra det lättare att förstå vad varje är för istället för att använda den generiska @ _ array .
4
Spara Perl programfil och köra det .
Addera
