Discussion :

[Kobe70]

Je suis débutant en perl et après avoir fais de nombreuses recherches je n'arrive pas a trouver la réponse a mon problème.
J'ai créé une fonction et je souhaite, dans le cas ou certaines conditions sont réunis entrer dans un if () qui me permet de quitter la fonction (sans quitter le programme).
Pourriez vous me venir en aide. Merci d'avance.

[Arioch]

Hello,

tu peux utiliser return, il te fera quitter la fonction pour retourner au bloc de code qui a appelé la fonction. J'ai bien parlé du groupe de code, pas de ton code principal.

Ainsi, si ta fonction TITI est appelée depuis une fonction appelée TATA, l'appel au return fait revenir ton programme dans la fonction TATA qui poursuit son petit bonhomme de chemin.

Généralement, c'est mon avis perso, je préfère que mon return retourne 1 si réussit, 0 en cas d'erreur lors du traitement dans la fonction.

Et bien entendu, return te permet aussi de renvoyer hors de la fonction variables, listes, hachages.

Bref, return c'est magique

A moins que l'un de nos experts es Perl nous avoue crapuleusement qu'il existe un module qui fait des retours hors fonctions de la mort qui tue que même la mort, elle en a peur

[Kobe70]

merci beaucoup pour la vitesse de ta reponse

[Arioch]

Voici plusieurs exemples d'appel à return dans des fonctions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
# fonction Is_Directory
# retourne vrai si la chaine de caractères fournie est un dossier, faux sinon
sub Is_Directory
{
    my $rep = shift;
    return 1 if (-d $rep);
    return 0;
}
 
# appel à la fonction
if (Is_Directory("c:/toto") )
{
    print "c:/toto est bien un répertoire\n";
}
else
{
    print "c:/toto n'est pas un répertoire\n";
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
# fonction Incremente
# ajoute 1 à la valeur numérique fournie et la retourne
sub Incremente
{
    my $val = shift;
    return $val +1;
}
 
# appel à la fonction
$toto = 10;
print "Avant incrémentation, toto = $toto\n";
$toto = Incremente($toto);
print "Après incrémentation, toto = $toto\n";