Einführung in Perl, Sixth Edition

Übungen

Die Antworten zu diesen Übungen finden Sie in Anhang A

1. [12] Schreiben Sie eine Subroutine &gesamt, die die Summe einer Liste von Zahlen zurückgibt. Hinweis: Die Subroutine sollte dabei keine I/O-Operationen durchführen, sondern ihre Parameter abarbeiten und das Ergebnis an den Aufrufer zurückgeben. Probieren Sie es mit dem folgenden Beispielprogramm, das die Subroutine aufruft, um die Funktionsweise zu testen. Die erste Gruppe von Zahlen sollte zusammen 25 ergeben.

   my @fred = qw{ 1 3 5 7 9 }; my $fred_gesamt = &gesamt(@fred); print "Die Summe von \@fred ist $fred_gesamt.\n"; print "Geben Sie einige Zahlen jeweils auf einer eigenen Zeile ein: "; my $benutzer_gesamt = &gesamt(<STDIN>); print "Die Summe der von Ihnen eingegebenen Zahlen ist ...