Sous-programmes de Perl

Tous programmes de Perl que nous avons �crits jusqu'ici ont simplement un ensemble d'instructions, ligne par la ligne. Comme n'importe quelle autre langue, le Perl nous permettent d'�crire le code sous la forme modulaire. Faire ainsi la langue devrait permettre au programmeur de mettre de c�t� des sous-programmes de code de sorte qu'ils puissent �tre r�utilis�s. Le Perl �galement fournissent ce dispositif.

Noter ici que beaucoup de gens appellent des sous-programmes de Perl en tant que � fonctions �. Dans cette section que nous pr�f�rons employer le terme � fonctionne � pour ces sous-programmes qui sont �tablis dans le Perl, et � sous-programmes � pour ceux le code qui sont �crits par le programmeur de Perl.

Noter ici qu'un utilisateur que des sous-programmes peuvent lui �tre employ�s l� o� est valide en utilisant une fonction indig�ne de Perl.

D�finir un sous-programme

Nous ne voulons pas que notre nouveau sous-programme imprime le message. Au lieu de cela, nous voulons qu'il renvoie la corde du message, et plus tard nous appelons la copie l�-dessus.

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

Employer des arguments dans les sous-programmes

Si vous ne pouvez pas donner l'entr�e au sous-programme puis que le subrioutine n'est pas utile beaucoup bon. Par cons�quent le Perl nous permet de passer des arguments aux sous-programmes juste comme des fonctions indig�nes de Perl.

Le Perl place une variable de rang�e sp�ciale � @_ � au d�but de chaque sous-programme, pour �tre la liste d'arguments envoy�s au sous-programme. Par une certaine convention standard, nous pouvons acc�der � ces variables en utilisant $_ [0. $#_]. Cependant, il vaut mieux de d�clarer une liste de variables et de leur assigner @ _ � la place imm�diatement. Consid�rons par exemple, si nous voulons saluer le groupe de personnes particulier, nous peut faire ce qui suit :

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");

Noter ici que puisque nous sommes dans un nouveau bloc et avons employ� le mon, les variables que nous avons d�clar�es vivront tant que le sous-programme obtient ex�cut�.

Ce sous-programme laisse un peu qui est d�sir�. Il serait bon si nous avons une salutation faite sur commande, au lieu de � bonjour �. En outre, nous voulons �galement saluer autant de personnes pendant que nous voulons �, et pas simplement deux. Ce code fixe ces deux probl�mes :

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");

Dans cet exemple nous avons employ� deux techniques int�ressantes. Premi�rement, nous employons une liste comme dernier param�tre quand nous acceptons des arguments. Il signifie que tout sera mis dans des @names apr�s le premier argument. Noter ici que toutes les autres variables qui ont suivi des @names, seraient demeur�es non d�finies. Cependant, les variables scalaires avant la rang�e (comme $greeting) re�oivent des valeurs hors du @_. Ainsi, il est dans de bons habitudes de faire seulement � rang�e le dernier argument.

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