Archive for the ‘Subroutines/Fonctions’ Category

Perl: Lancer un programme externe

 calcul
{filelink=14610}

#!/usr/local/bin/perl
 
# lancer la calculatrice de windows
exec "calc";
die "Impossible de lancer le programme: $!";

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]

Accéder aux arguments des subroutine par leurs index


{filelink=14605}

# Accéder aux arguments d'un subroutine via leurs numéros
# comme un tableau.
 
sub division
{
    # Diviser l'argument1 par l'argument2
    $_[0] / $_[1];
 
    # Vous n'êtes pas obligé de définir la ligne return
}
 
$quotient = division 5, 2;  # Uses &division
 
print $quotient;

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]

Lire l’entrée clavier avec l’opérateur diamond””


{filelink=14608}

#!/usr/local/bin/perl
 
while (defined($line = <>))
{
  chomp($line);
  print "Je dis $line!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]

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

 list, list
{filelink=14604}

#!/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 = &#038;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” 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]

Si la fonction ‘keys’ d’un hash est utilisée dans un contexte scalaire elle retourne le nombre de clé du hash


{filelink=14607}

#!/usr/local/bin/perl
 
my %hash = ("a" => 1, "b" => 2, "c" => 3);
 
# retourner le nombre de clé d'un hash
my $nombre_cle= keys %hash;
 
print "Le Hash contient $nombre_cle clé(s)";

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]

Rechercher l’index d’un mot dans un string


{filelink=14611}

#!/usr/local/bin/perl
 
use strict;
 
my $hi="Fan de perl, Bienvenu sur perl.mesexemples.com";
 
# Trouver l'index du mot 'sur' dans le string '$hi'
my $indic=index($hi, "sur");
 
# Afficher le résultat
print "'sur' trouvé à l'index $indicn";       # "22"
 
# Trouver l'index du mot 'perl' dans le string '$hi'
# à partir de l'index 12
$indic=index($hi, "perl", 12);
 
print $indic;                                  # "26"

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]

Formater les données avec la fonction ‘sprintf’


{filelink=14612}

#!/usr/local/bin/perl -w
#####################sprintf###############
# La fonction sprintf fonctionne de la même
# manière que printf mais contrairement à printf
# sprintf retourne le texte formaté dans un string
 
# formater le données et retourner le résultat dans "$mon_format"
my $mon_format = sprintf("%12.4e %12.4f %12.4gn",
			          0.0000001, 10.1, 10.00001, 100000.1);
 
print $mon_format,"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]

Calculer la somme d’un tableau à l’aide d’un subroutine

 calcul
{filelink=14603}

 
#!/usr/local/bin/perl -w
 
sub somme
{
 
    my ($num)= @_ ;        # Les paramètres de la fonction
    my $somme;
 
    foreach $nombre (@_)
    {
 
        $somme += $nombre;
 
    }
 
    return $somme;        # Retourner la somme
 
}
 
@vals=(10,20,30,40,50);
 
print somme(@vals);

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]

Les fonctions ‘keys’ et ‘values’ retournent respectivement les clés et les valeurs d’un ‘Hash’


{filelink=14606}

#!/usr/bin/perl
 
my %hash = ("a" => 1, "b" => 2, "c" => 3);
my @cles = keys %hash;                # Les clés du tableau associatif 'hash'
my @valeurs = values %hash;           # Les valeurs du tableau associatif 'hash'
 
print @cles,"n",@valeurs,"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]

Boucle: Afficher les lettres de l’alphabet


{filelink=14609}

#!/usr/local/bin/perl
 
use strict;
 
for my $lettre('a'..'z','A'..'Z')   #En minuscule et majuscule
{
  print $lettre,"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]