Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Définir un nombre d’argumenet illimité pour un subroutine/Fonction

Your ads will be inserted here by

Easy AdSense.

Please go to the plugin admin page to paste your ad code.

 list, list
Download

#!/usr/local/bin/perl
 
# trouver la valeur maximale d'une liste de valeur
sub find_max
 {
  my($peu_imprt_arg) = shift @_;  # peu importe le nombre d'argument
  foreach (@_) {
    if ($_ > $peu_imprt_arg) {
      $peu_imprt_arg = $_;
    }
  }
  return $peu_imprt_arg;
}
 
$maximum = &max(3, 5, 10, 4, 6);
 
print "La plus grande valeur des arguments est: $maximumn";

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”