Comment puis-je élégamment appeler un sous-programme Perl dont le nom est tenu dans une variable?

Je garde le nom de la sous-routine, je tiens à appeler à l'exécution dans une variable appelée $l'action. Puis-je l'utiliser pour l'appel de sous au bon moment:

&{\&{$action}}();

Fonctionne très bien. La seule chose que je n'aime pas, c'est que c'est laid, et à chaque fois que je le fais, je me sens redevable à ajouter un commentaire pour la prochaine développeur:

# call the sub by the name of $action

Quelqu'un connais une jolie façon de faire cela?

Mise à JOUR: L'idée ici était d'éviter d'avoir à maintenir un envoi de la table chaque fois, j'ai ajouté un nouveau appelable sous, depuis que je suis le seul développeur, je ne suis pas inquiet au sujet d'autres programmeurs suit ou ne suit pas les "règles". Sacrifier un peu de sécurité pour mon confort. Au lieu de mon expédition module de vérification de $action pour s'assurer que 1) c'est le nom d'une sous-routine et de ne pas l'exécution de code malveillant avec eval, et 2) qu'il ne serait pas exécuter n'importe quel sous préfacé par un trait de soulignement, qui devrait être marquée comme interne uniquement des sous-marins par cette convention de nommage.

Toute réflexion sur cette approche? Une liste blanche des sous-programmes dans l'envoi de la table est quelque chose que j'oublierai tout le temps, et mes clients serait plutôt me pencher du côté de "ça marche" que "c'est presque sûr". (très peu de temps pour développer des applications)

Dernière mise à JOUR: je pense que j'ai décidé sur un envoi de la table, après tout. Bien que je serais curieux de savoir si quelqu'un qui lit cette question n'a jamais essayé de les faire disparaître, et comment ils l'ont fait, j'ai à vous incliner devant la sagesse collective ici. Merci à tous, beaucoup de grandes réponses.

  • Réaliser que lorsque vous prenez une référence à quelque chose d'immédiatement déréférencement d'elle, vous pouvez sauter le moyen étapes de. 🙂
  • généralement (et certainement dans ce cas), mais voir stackoverflow.com/questions/1836178/... pour un contre-exemple. 🙂
  • Une expédition table signifie également que vous pouvez use strict, qui est généralement une bonne chose.
InformationsquelleAutor Marcus | 2009-12-16
  1. 81

    Plutôt que de stocker les noms de sous-routine dans une variable et en les appelant, une meilleure façon de le faire est d'utiliser une table de hachage de sous-routine références (autrement connu comme un expédition table.)

    my %actions = ( foo => \&foo,
                bar => \&bar,
                baz => sub { print 'baz!' } 
                ... 
              );

    Ensuite, vous pouvez appeler le droit que l'on puisse facilement:

    $actions{$action}->();

    Vous pouvez également ajouter un peu de vérification pour vous assurer que $action est une clé valide dans la table de hachage, et ainsi de suite.

    En général, vous devriez éviter de références symboliques (ce que vous faites maintenant) car elles causent toutes sortes de problèmes. En outre, en utilisant de vrais sous-routine les références à travailler avec strict allumé.

    • J'ai répété mon commentaire ici d'une autre réponse ci-dessous, que cette réponse est de loin le meilleur score! dans le cas où il peut aider n'importe qui, si vous aussi vous voulez passer des paramètres à la sous-routine, vous il suffit de les placer entre les () - c'est à dire le même comme vous le feriez pour une normale de sous. par exemple, $actions{$action}->($parmVariable,11,'a'); Les paramètres devront être cohérents à travers tous les sous-routines d'être appelé, bien que les valeurs peuvent venir à partir de variables de cours.
    InformationsquelleAutor friedo
  2. 21

    Juste &$action(), mais en général c'est plus agréable à utiliser coderefs depuis le début, ou l'utilisation d'un répartiteur de hachage. Par exemple:

    my $disp = {foo => \&some_sub, bar => \&some_other_sub };
$disp->{'foo'}->();
    • En utilisant le &$action de la solution-je obtenir: ne Peut pas utiliser des chaînes de caractères ("main::instructeurs") comme une sous-routine ref tandis que strict "refs". Ainsi sont la gymnastique, je le fais seulement parce que j'ai stricte allumé?
    • Oui, ce type d'utilisation est ce que 'use strict' empêche (entre autres). "No strict "refs" " pour le permettent, mais encore une fois, les références ou les répartiteurs sont en général beaucoup plus claire.
    • L'envoi de la table de réponse, qui utilise réelle (par opposition à la symbolique) des références, sera bien sûr de travailler avec strict activé, ce qui est un autre avantage de faire de cette façon.
    • use strict qw(vars subs) est un moyen plus court de dire use strict; no strict 'refs';
    • jusqu'à ce que quelqu'un ajoute une quatrième catégorie de sténose, c'est 🙂
    InformationsquelleAutor Harmen
  3. 16

    Hein? Vous pouvez juste dire

        $action->()

    Exemple:

        sub f { return 11 }
    $action = 'f';
    print $action->();


    $ perl subfromscalar.pl
    11

    Des Constructions comme

        'f'->()     # equivalent to   &f()

    aussi de travail.

    • Si vous use strict (et bien sûr, vous le faites), vous aurez besoin de dire no strict 'refs' ou tout simplement use strict qw(vars subs) pour utiliser cette syntaxe.
    InformationsquelleAutor mob
  4. 11

    Je ne suis pas sûr que je comprends ce que tu veux. (Je pense que c'est un autre dans un récent groupe de "Comment puis-je utiliser une variable comme nom de variable?", questions, mais peut-être pas.)

    Dans tous les cas, vous devriez être en mesure d'attribuer un ensemble de sous-routine à une variable (comme référence), puis l'appeler simplement:

    # create the $action variable - a reference to the subroutine
my $action = \&preach_it;
# later - perhaps much later - I call it
$action->();

sub preach_it {
    print "Can I get an amen!\n"
}
    InformationsquelleAutor Telemachus
  5. 10

    La chose la plus importante est: pourquoi voulez-vous utiliser une variable comme nom de fonction. Ce qui va se passer si il sera 'eval'?
    S'il existe une liste de fonctions qui peuvent être utilisées? Ou peut-il être n'importe quelle fonction? Si la liste existe - combien de temps il est?

    Généralement, la meilleure façon de gérer de tels cas est d'utiliser l'expédition de tables:

    my %dispatch = (
   'addition' => \&some_addition_function,
   'multiplication' => sub { $self->call_method( @_ ) },
);

    Et puis juste:

    $dispatch{ $your_variable }->( 'any', 'args' );
    InformationsquelleAutor
  6. 7
    __PACKAGE__->can($action)->(@args);

    Pour plus d'info sur pouvez(): http://perldoc.perl.org/UNIVERSAL.html

    InformationsquelleAutor Nehal J Wani
  7. 6

    - Je faire quelque chose de similaire. Je l'ai divisée en deux lignes pour les rendre un peu plus visible, mais ce n'est pas beaucoup plus jolie.

    my $sub = \&{$action};
$sub->();

    Je ne sais pas de plus juste ou la plus jolie façon de faire. Pour ce que ça vaut, nous avons la production de code qui fait ce que vous faites, et il fonctionne sans avoir à désactiver use strict.

    • et dans le cas où il peut aider n'importe qui, si vous aussi vous voulez passer des paramètres à la sous-routine, vous il suffit de les placer entre les () - c'est à dire le même comme vous le feriez pour une normale de sous. par exemple, $sub->($parmVariable,11,'a');
    • Pour appeler ce réflexe de l'intérieur d'une sous; my $this = \&{(appelant(0))[3]}; $retour = $this->(); $retour .= $this->(\@drapeaux,$arguments,\%foo);
    InformationsquelleAutor Wes
  8. 4

    Chaque paquet de Perl est déjà une table de hachage. Vous pouvez ajouter des éléments et de les référencer par les opérations de hachage. En général, il n'est pas nécessaire de dupliquer les fonctionnalités supplémentaires de la table de hachage.

    #! /usr/bin/perl -T
use strict;
use warnings;

my $tag = 'HTML';

*::->{$tag} = sub { print '<html>', @_, '</html>', "\n" };

HTML("body1");

*::->{$tag}("body2");

    Le code imprime:

    <html>courant1</html> 
<html>corps2</html>

    Si vous avez besoin d'un nom distinct de l'espace, vous pouvez définir un kit dédié.

    Voir perlmod pour de plus amples informations.

    • C'est une longue page pour le lien, mais je pense que vous faites allusion à la Tables de symboles.
    InformationsquelleAutor ceving
  9. 1

    Utiliser 

    &{\&{$action}}();

    Ou utiliser la fonction eval pour exécuter la fonction:

    eval("$action()");
    InformationsquelleAutor Grolim
  10. 1

    Je l'ai fait de cette façon:

    @func = qw(cpu mem net disk);
foreach my $item (@func){
    $ret .= &$item(1);
}
    InformationsquelleAutor Putnik
  11. 0

    Si c'est uniquement dans un programme, écrire une fonction qui s'appelle un sous-programme à l'aide d'un nom de variable, et ont seulement le document it/excuse une fois?

    InformationsquelleAutor Dean J
  12. 0

    J'ai utilisé ceci: il fonctionne pour moi.

    ($action)->();

    Ou vous pouvez utiliser "faire", assez similaire avec les messages précédents:

    $p = do { \&$conn;}; 
$p->();
    InformationsquelleAutor Yang