Alle Perl Programme, die wir bis jetzt geschrieben haben, haben einfach einen Satz Anweisungen, Linie durch Linie. Wie jede m�gliche andere Sprache erlauben Perl uns, Code in die modulare Form zu schreiben. Die Sprache so zu tun sollte dem Programmierer erlauben Subroutinen des Codes beiseite zu setzen damit sie wiederverwendet werden k�nnen. Perl auch liefern diese Eigenschaft.

Hier merken, da� viele Leute Perl Subroutinen als �Funktionen� benennen. In diesem Abschnitt, den wir es vorziehen, Bezeichnung zu verwenden f�r jene Subroutinen, die in Perl errichtet werden, und �Subroutinen� f�r die �, arbeitet� Code, die vom Perl Programmierer geschrieben werden.

Hier merken, da� ein Benutzer, welche Subroutinen gleichg�ltig wo verwendet werden k�nnen es, mit einer geb�rtigen Perl Funktion g�ltig ist.

Definieren einer Subroutine

Wir w�nschen unsere neue Subroutine die Anzeige nicht drucken. Stattdessen w�nschen wir sie die Zeichenkette der Anzeige zur�ckbringen, und sp�ter benennen wir Druck auf ihm.

use strict;
sub HelloEveryone {
return "Hello everyone.\nWhere do you want to go with Perl today?\n";
}
print &HelloEveryone;

Using Arguments in Subroutines

Wenn du nicht Eingang zur Subroutine geben kannst dann, da� subrioutine nicht von vielem gutgebrauch ist. Folglich erlaubt Perl uns, Argumente zu den Subroutinen gerade wie geb�rtigen Perl Funktionen zu f�hren.

Perl stellt eine spezielle Feldvariable �@_� am Anfang jeder Subroutine ein, um die Liste der Argumente zu sein, die zur Subroutine geschickt werden. Durch irgendeine Standardversammlung k�nnen wir diese Variablen mit $_ zug�nglich machen [0. $#_]. Jedoch anstatt zuzuweisen ist besser, eine Liste von Variablen zu erkl�ren und @ _ ihnen sofort. Uns zum Beispiel betrachten lassen, wenn wir bestimmte Gruppe Leute gr��en m�chten, wir kann das folgende tun:

use strict;
sub HelloEveryone {
my($name1, $name2) = @_;
return "Hello $name1 and $name2.\n" .
"Where do you want to go with Perl today?\n";
}
print &HelloEveryone("John", "David");

Hier merken, da�, da wir in einem neuen Block sind und mein verwendet haben, die Variablen, die wir erkl�rten, leben, solange die Subroutine durchgef�hrt erh�lt.

Diese Subroutine l��t eine Spitze, die gew�nscht wird. Es w�rde, wenn wir einen kundenspezifischen Gru� haben, anstelle von �hallo� gut sein. Zus�tzlich m�chten wir auch da viele Leute, w�hrend wir zu w�nschen, und nicht gerade zwei gr��en. Dieser Code regelt diese zwei Probleme:

use strict;
sub HelloEveryone {
my($greeting, @names) = @_;
my $returnString;

foreach my $name (@names) {
$returnString .= "$greeting, $name!\n";
}

return $returnString .
"Hey here's VYOM technosoft?\n";
}
print &HowdyEveryone("Hello", "John", "David", "Peter", "George", "Michal");

In diesem Beispiel haben wir zwei interessante Techniken verwendet. Erstens benutzen wir eine Liste als der letzte Parameter, wenn wir Argumente annehmen. Es bedeutet, da� alles in @names nach dem ersten Argument gesetzt wird. Hier merken, da� alle m�gliche anderen Variablen, die @names folgten, unbestimmt geblieben sein w�rden. Jedoch empfangen Skalarvariablen vor der Reihe (wie $greeting) Werte aus @_ heraus. So ist es gutes �blich, nur Reihe das letzte Argument zu bilden.

Keywords:perl tutorial, perl scripts, perl programming, active perl, perl download, blackberry perl, perl regular expressions, perl split, perl array, perl script page

HTML Quizes

XML Quizes