Open een Perl-programma bestand . Typ de volgende code :

sub
bedoel {

mijn @ set = @ _ ;

$ totaal = 0 ;

Dit definieert een nieuwe functie genaamd " bedoelen " en maakt vervolgens een array genaamd " @ set" , dat de lijst met argumenten doorgegeven aan de functie neemt . Het creëert ook een variabele genaamd " $ totaal " en initialiseert het naar nul

Typ de volgende code 2 :

for ($ i = 0 ; $ i < @ set . ; $ i + + ) {

$ totaal = $ totaal + @ set [ $ i ] ;

}

Deze " lus " instructie maakt een teller variabele genaamd " $ i " en gebruikt het om door alle nummers in de " @ set " array en voegt ze samen , het opslaan van de resultaten in het " totale variabele $ " .

Type 3 de volgende code :

print " Total aantallen : "
. @ ingesteld . " \\ n " ;

print " Som: "
. $ totaal. " \\ n " ;

druk
" Mean : " . $ totaal /@ set ;

print " \\ n \\ n " ; }

Deze lijnen formaat de output en laten de gebruiker hoeveel nummers waren in de steekproef ruimte , de totale waarde en het betekenen . Hij drukt dan twee lege regels voor een betere leesbaarheid , en sluit de gemiddelde functie
4

Typ de volgende code : .

Gemiddelde
( 1,2,3 ) ;

gemiddelde ( 6,11,7 ) ;

gemiddelde
( 5,2,5,2,66,4,2,26,64,23 ) ;

Deze lijnen test de betekenen functie . Het eerste gesprek heeft drie totaal nummers die optellen tot zes en een gemiddelde van twee . De tweede oproep heeft weer drie totaal nummers die optellen tot 24 en een gemiddelde van acht . De derde oproep heeft 10 totaal nummers die optellen tot 199 en een gemiddelde van 19,9 .
5

Sla het Perl-programma .