Einführung in Perl, Sixth Edition

Lösungen zu den Übungen in Kapitel 4

1. So könnte eine mögliche Lösung aussehen:

   sub gesamt {
     my $summe;  # private Variable
     foreach (@_) {
       $summe += $_;
     }
     $summe;
   }

   Diese Subroutine benutzt die Variable $summe, um den Gesamtwert zu speichern. Zu Beginn ist der Wert von $summe noch undef, da wir die Variable neu angelegt haben. (Es gibt keine automatische Verbindung zwischen @_, dem Parameterarray, und $_, der Standardvariablen für die foreach-Schleife.)

   Beim ersten Schleifendurchlauf wird zur Variablen $summe die erste Zahl (in $_) hinzugezählt. Bis zu diesem Zeitpunkt ist der Wert von $summe selbstverständlich undef, da wir hier bisher noch nichts gespeichert haben. Da wir die Variable aber hier als Zahl benutzen (was Perl an dem numerischen Operator ...