In Statistiken, die mittlere ist einfach ein Durchschnitt von einem Probenraum ist , die eine Gruppe von Zahlen in einer Reihe . Sie berechnet den Mittelwert , indem alle Zahlen zusammen und dividiert die Summe durch die Gesamtanzahl der Elemente in den Probenraum . Mit Perl können Sie programmieren eine Funktion , um den Mittelwert zu berechnen und nennen es dann von irgendwo anders in Ihrem Programm. Sie müssen nur die Probe Raum als ein Array und ein paar Variablen als Zähler verwenden - Sie brauchen keine anderen integrierten Funktionen . Anleitung 
 1 
 Öffnen Sie ein Perl-Programm -Datei. Geben Sie den folgenden Code: 
 
 sub bedeuten { 
 
 my @ set = @ _ ; 
 
 $ total = 0; 
 
 Dies definiert eine neue Funktion namens " Mittel " und erstellt dann ein Array namens " @ set ", dass die Liste der Argumente an die Funktion übergeben müsste . Es schafft auch eine Variable namens " $ total " und initialisiert sie auf Null 
 2 
 Geben Sie den folgenden Code: 
 
 for ($ i = 0; $ i < @ set . ; $ i + +) { 
 
 $ total = $ total + @ set [$ i] ; } 
 
 
 
 Dieses " for-Schleife " Anweisung erstellt einen Zähler Variable namens " $ i " und verwendet sie , um durch alle Zahlen in dem" @ set " Array und fügt sie zusammen , spart das Ergebnis in der " $ total "-Variable . 
 3 
 Typ der folgenden Code: 
 
 print " Summe Zahlen: " . @ gesetzt . " \\ n"; 
 
 print " Summe: " . $ total . " \\ n"; 
 
 print " bedeuten:" . $ total /@ set ; 
 
 print "\\ n \\ n"; } 
 
 
 
 Diese Linien die Ausgabe zu formatieren und zeigen dem Anwender , wie viele Zahlen waren in den Probenraum , ihr Gesamtwert und das meine. Es gibt dann zwei Leerzeilen zur besseren Ablesbarkeit, und schließt die mittlere Funktion 
 4 
 Geben Sie den folgenden Code: . 
 
 Mittelwert ( 1,2,3 ); 
 < p> Mittelwert ( 6,11,7 ); 
 
 Mittelwert ( 5,2,5,2,66,4,2,26,64,23 ); 
 
 Diese Zeilen testen die meine Funktion . Das erste Gespräch hat insgesamt drei Nummern, die bis zu sechs hinzufügen und haben einen Mittelwert von zwei . Der zweite Aufruf wieder hat insgesamt drei Nummern, die bis zu 24 hinzufügen und haben einen Mittelwert von acht . Der dritte Anruf hat insgesamt 10 Nummern, die bis zu 199 addieren und haben einen Mittelwert von 19,9 . 
 5 
 Speichern Sie die Perl-Programm .