Einführung in Perl, Sixth Edition

Der return-Operator

Was ist, wenn Sie Ihre Subroutine direkt anhalten wollen? Der Operator return gibt sofort bei seinem Aufruf einen Wert aus einer Subroutine zurück.

my @namen    = qw/ Fred Barney Betty Dino Wilma Pebbles Bam-Bam /;
my $ergebnis = &welches_element_ist("Dino", @namen);

sub welches_element_ist {
  my($was, @array) = @_;
  foreach (0..$#array) {  # Indizes der Elemente von @array
    if ($was eq $array[$_]) {
      return $_;   # richtiges Element gefunden, Wert sofort zurückgeben
    }
  }
  -1;              # Element nicht gefunden (return ist hier optional)
}

Sie fordern diese Subroutine auf, im Array @namen den Index von Dino zu finden. Zuerst wird mit my eine Parameterliste deklariert: Es gibt das $was, nach dem wir suchen, und ein @array von Werten, in dem gesucht ...