Discussion :

[synx91]

Salut,

Je continue d'apprendre doucement en Perl, aujourd'hui j'aimerai savoir comment passer une fonction en argument d'un script Perl.

En gros voici la ligne de commande:

Code :

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

# perl script.pl nom_fonction

Avec cette commande, le script Perl se lance et doit exécuter la fonction dont le nom est en argument.

Je sais comment récupérer la chaine "nom_fonction" mais pas comment lancer la fonction associée.

Pouvez-vous m'aider?

Si possible, j'aimerai ne pas passer par un "if" du style:

Code :

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

1
2
3
if ( $arg == "nom_fonction"){
    nom_fonction();
}

Ceci pour la simple et bonne raison que je risque d'avoir pas mal de fonctions...

Merci

[Gardyen]

jette donc un coup d'oeil à la fonction eval dans un premier temps, mais il y a mieux, je cherche quelques références en attendant les experts...

EDIT: voilà un exemple

[synx91]

Je sais pas si c'est moi mais j'ai pas tout compris aux 2 liens.

La fonction eval n'appelle pas une autre fonction? si?

Pareil pour l'exemple, j'ai pas tout compris, il vérifie une condition avant d'appeler une méthode, c'est ça?

[djibril]

Je trouve qu'il n'est absolument pas judicieux de vouloir faire ce que tu souhaites.

La meilleure façon de procéder est que ton programme lance une fonction en fonction d'un argument qui ne soit pas le nom de ta fonction.

Exemple : perl prog.pl -start

Qui lance la fonction commancer_calcul()

[synx91]

Il est fort probable que ce ne soit pas judicieux mais je débute alors des erreurs j'en ferai encore plein.

Seulement j'ai un cahier des charges qui me dit en gros:
- écrire un script perl avec des fonctions de calcul à l'intérieur
- la fonction à utiliser sera appelée en argument de ce script

Donc je vois pas comment passer outre.

[djibril]

Ton cahier de charge te dit de faire ce que toi tu ne souhaites pas faire, c'est-à-dire des if !

C'est bien de vouloir écrire du code avec le moins de lignes possible, mais à un moment donné, il faut tout de même écrire des lignes et des conditions !

[Philou67430]

Tu peux aussi utiliser un hash qui contiendrait une liste de références de fonctions à appeler.

Exemple :

Code :

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

1
2
3
4
5
my $fonction1 = sub { print "Fonction1\n"; };
my $fonction2 = sub { print "Fonction2\n"; };
my %fonction = ( fonction_1 => $fonction1, fonction_2 => $fonction2 );
 
$fonction{$ARGV[0]}->();

[synx91]

En fait je viens d'apprendre que je n'aurai pas tant de fonctions que ça à appeler. Je vais donc passer par les if.

Sinon pas mal ton code Philou, il me sera utile à l'avenir.

Merci à vous.

[Philou67430]

Depuis la version 5.10, il existe une structure de contrôle de type switch : given/when, qui utilise l'opérateur "smart matching" ~~ :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
use feature qw(:5.10);
 
given($ARGV[0]) {
  when ("fonction1") {
    fonction1();
  }
  when ("fonction2") {
    fonction2();
  }
  default {
    die "Bad function name";
  }
}