zurückInhaltvorwärts Perl Einführung: Subroutinen: Werte zurückgeben

11.3 Subroutinen: Werte zurückgeben

Subroutinen, denen man Parameter uebergeben kann, sind schon recht nüzlich, so richtig sinnvoll werden sie aber erst, wenn man auch Ergebnisse nach Beendigung der Subroutine erhält. Dies erreicht man durch die return Anweisung:

Beispiel:

# Hauptprogramm

$zahl1=10;
$zahl2=20;
$zahl3=45;

# Aufruf der Subroutinen
$ergebnis1 = &verdoppeln($zahl1);
$ergebnis2 = &halbieren($zahl2);
$ergebnis3 = &addieren($ergebnis1, $ergebnis2, $zahl3);

# Ausgabe der Ergebnise
print "Ergebnis1: $ergebnis1\n";
print "Ergebnis2: $ergebnis2\n";
print "Ergebnis3: $ergebnis3\n";


# Subroutinen

sub verdoppeln {
  return @_[0]*2; # Rückgabe des verdoppelten Übergabewertes
}

sub halbieren {
  return @_[0]/2; # Rückgabe des halbierten Übergabewertes
}

sub addieren {
  my $ergebnis = 0;
  foreach $i (@_) {
     $ergebnis += $i; 	# Für += Operator siehe Kapitel 3.2
  }
  return $ergebnis; # Rückgabe der Summe der Einzelparameter
}
Perl Einführung: Subroutinen: Werte zurückgeben zurückInhaltvorwärts