Bonjour,

J'essaye de construire une sub en perl, qui permet de faire n tentatives d'execution d'un bout de code perl qu'on lui passerait en paramètre.
J'ai pour l'instant fait ceci qui récupère et affiche 3 fois le code retour d'une commande perl passée en paramètre.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
sub tentative_execution{
    my ($func)  = @_;
    for (0 .. 3) {
 
                 my $code_retour = eval($func);
                 print $code_retour;
 
    }
 
}
Premier problème, ca ne fonctionne que si je lui passe en paramètre une sub déclarée au préalable, et non une commande perl directement (par exemple print "toto") .
Est ce que c'est possible de faire une telle fonction en lui passant en paramètre du code perl?
par exemple je voudrais réussir à faire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
tentative_execution( print "toto" );
qui ferait n tentatives d'execition de la commande print "toto".

Merci pour votre éclairage.