{filelink=14600}

#!/usr/bin/perl
############# Subroutine #############
# le mot subroutine en anglais sous-programme
# est l'appellation de méthode ou fonction sous Perl
# pour déclarer un subroutine on utilise le mot clé 'sub'

# Calcul d'hypotenus
sub hypotenuse
 {
    my ($cote1, $cote2) = @_;                     # Les deux arguments de
    							                  # la fonction"subroutine"

    return sqrt( ($cote1 ** 2) + ($cote2 ** 2) ); # Valeur de retour
}

@vals = (6, 8);                  # 10
#Appel de la fonction
print hypotenuse(@vals), "n";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]