Sahanya

Subroutinen rufen Anweisungen auf, die an einer anderen Stelle im Programm definiert werden. Dies geschieht meistens entweder am Ende oder am Anfang.

Subroutinen geben dabei immer ihren letzten Wert aus. Hier einige Beispiele für den Umgang mit Subroutinen:

sub sag_hallo_zu {
print "Hallo $_[0]!\n";
}

sag_hallo_zu ("Welt"); Hallo Welt!

$x = "jemand";
sag_hallo_zu ($x); Hallo jemand!

sag_hallo_zu ("ich") + sag_hallo_zu ("du"); Hallo ich! Hallo du! — die SR wird hier zweimal aufgerufen

Mehrere Variablen ansprechen:

sub sag {
print "$_[0], $_[1]\n";
} man erhält eine Fehlermeldung, wenn hier noch $_[2] steht, aber keine 3 Variablen definiert sind

sag ("Tschuess", "du grausame Welt"); Tschüss du grausame Welt

sag ("Hallo", "Welt", "test"); Hallo Welt — die dritte Variable wird ignoriert

Um zu verhindern, das Variablen, die man in der Subroutine definiert mit Variablen außerhalb der Subroutine kollidieren, wenn sie den gleichen Namen haben, definiert man sie als „privat”

$a = addieren (3,4);
$b = addieren (1..5);
print "$a, $b"; 7, 15

sub addieren {
my ($summe);private Variable anlegen
$summe = 0; Startwert festlegen
foreach $_ (@_) { für jeden Wert der Liste
$summe += $_; 1+ Wert
}
return $summe;Rückgabewert
}

Andere Perl-Themen