Subroutine über Variable aufrufen (gelöst) (Allgemeines zu Perl)

[thread]18027[/thread]

Subroutine über Variable aufrufen [gelöst]

Tags: perl5 Subroutinen Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+5 replies
Kean

2013-01-05 20:14
User since
2004-08-18
464 Artikel
BenutzerIn
Wie kann man eine Subroutine ausführen wenn man den Namen in einer Variablen gespeichert hat?

Beispiel:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

use strict; use warnings; my $function = 'test'; call $function; <- ????? sub test { print "test"; }
- +2 replies
- pq
  
  2013-01-05 20:27
  User since
  2003-08-04
  12209 Artikel
  Admin1
  grundsätzlich sollte man sowas möglichst mit dispatch-tabellen behandeln.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my %table = ( test => \&test, foo => \&foo, ... ); my $var = "test"; $table{ $var }->($parameter);
  
  das bewahrt vor fehlern.
  
  wenn man weiss, was man tut:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $var = "test"; my $sub = \&{ $var }; $sub->($parameter);
  
  das geht auch mit strict.
  
  wenn man strict an der stelle deaktiviert, geht auch folgendes:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  no strict; my $var = "test"; $var->($parameter); # oder &$var;
  
  edit: bei den letztgenannten methoden kann im prinzip jede subroutine aufgerufen werden, auch aus anderen modulen. daher vorsicht, vor allem, wenn der string von aussen kommt! am besten eine dispatchtabelle benutzen.
  Last edited: 2013-01-05 20:42:27 +0100 (CET)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Kean
    
    2013-01-06 15:13
    
    User since
    2004-08-18
    464 Artikel
    BenutzerIn
    
    Ich habe mich für eine dispatch-tabelle entschieden und es funktioniert super. Vielen Dank für die schnelle Hilfe.
- +2 replies
- rosti
  
  2013-01-05 20:39
  User since
  2011-03-19
  3726 Artikel
  BenutzerIn
  Ein bischen weiter ausgeholt in Richtung OOP:
  Jede Klasse erbt von der Klasse UNIVERSAL, da gibt es die Methode can(). Betrachte das Script:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  use strict; use warnings; my $fname = 'foo'; my $pkg = __PACKAGE__; if(my $code = $pkg->can($fname)){ $pkg->$code(1,2,3); } else{ die "No code for function '$fname'\n"; } sub foo{ print "this is sub foo in package 'main', args: @_\n"; }
  
  can() liefert eine Referenz auf den im Speicher liegenden Code, der somit ausgeführt werden kann (vorher wird geprüft).
  
  PS/Edit: Übergabe Argumente eingebaut.
  Last edited: 2013-01-05 20:43:06 +0100 (CET)
  http://rolfrost.de/wallpaper.html
  
  WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.
  - pq
    
    2013-01-05 20:44
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    nur als hinweis: auch hier kann im prinzip jede methode aufgerufen werden, auch aus anderen modulen. also ggfs. auch hier vorsicht.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2013-01-05 20:14.